apply

    2热度

    2回答

    我有这样 df <- matrix(c(rep(1,3),rep(2,3)),nrow=3,ncol=2) df: [,1] [,2] [1,] 1 2 [2,] 1 2 [3,] 1 2 我想每一个单元格的值转换为YES,如果大于0矩阵,否则NO 我明白,我能做到这一点使用 apply(df, 2, function(x) ifelse(x > 0, "Yes","No

    1热度

    1回答

    // Replace the method named m of the object o with a version that logs // messages before and after invoking the original method. function trace(o, m) { // Remember original method in the clos

    1热度

    1回答

    我的数据下 A<-c(1999,1999, 2001, 2001) B<-c("A", "D", "A", "D") df<-data.frame (A, B) 我申请 df$C<-apply(df[1], 2, function(x) ifelse(x > 2000, 2000, x)) 来创建基于基准列 输出与价值观的新列 A B C 1 1999 A 1999 2 1999

    0热度

    2回答

    如何找到单词列表的出现次数?我可以搜索一个词如下: dplyr::filter(data, grepl("apple", data$content,ignore.case = TRUE)) length(x$content) 的|分离让我来总结所有事件。但是我想单独计算每个单词。 词语可以作为在一个csv行供给或写入中的R本身的载体,例如: words <- c("apple","orang

    3热度

    1回答

    我有两个数据框:data和rules。 >>>data >>>rules vendor rule 0 googel 0 google 1 google 1 dell 2 googly 2 macbook 我试图计算每个供应商和规则之间的相似莱文斯坦后,两个新列添加到data数据帧。所以,我的数据框应该非常包含看起来像

    1热度

    2回答

    我有这样一个列表的列表: all_lists = [list0, list1, list2, list3, ....., listn] 而且像这样采用两个参数,从这个all_lists的功能。 def function(list0, list1): do stuff 该函数将继续从该all_lists通过移动索引1直到它到达listn参数。 有没有一种有效的方法来做到这一点? 谢

    1热度

    1回答

    我有一个高维数组,并希望对它们应用一些函数。问题是我不能告诉apply()(或类似的应用系列),传递函数的对象不在函数的第一个参数中。 阿呆这里例如: data <- c(1,2,3,4,5) myarray <- array(data,dim=c(5,5,2,2),dimnames=list(NULL, paste("col",1:5,sep=""), paste("matrix",1:2

    0热度

    3回答

    目前我正在写一个librarySystem 而且有一个字符串数组[“打招呼”,“名”],如下面的代码示例依赖关系,但是我需要使用这个stringArray作为通过使用apply()传入 greetingToName()的函数数组,是否有任何方法将stringArray转换为函数数组? function greet(){ return 'hi!'; } function name()

    1热度

    1回答

    我有一个df有几列:'小时','天','星期','月','年'和'价值'。我已经“周”和“时间”与“价值”寻找均值()进行分组: df_group = df.groupby(['week','hour']).value.mean().reset_index() 现在我想申请的是平均值为每星期每一个小时的单独列。有任何想法吗? 提前谢绝!

    0热度

    1回答

    我有一个DF: id text 1 This is a good sentence 2 This is a sentence with a number: 2015 3 This is a third sentence 我有一个文本清洗功能: def clean(text): lettersOnly = re.sub('[^a-zA-Z]',' ', text)