Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/76.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 对数据集的子集进行操作_R_Loops_Subset - Fatal编程技术网

R 对数据集的子集进行操作

R 对数据集的子集进行操作,r,loops,subset,R,Loops,Subset,考虑以下数据集: a <- c(1,23,18,47,15,56,67,43,9) b <- c("A","B","B","C","C","B","D","A","C") df <- data.frame(var1=a, var2=b) a最简单的方法是使用dplyr包 atapply(df$var1,df$var2,FUN=mean)很乐意帮忙。如果这回答了您满意的问题,您可以将答案标记为已接受(在投票功能下选中标记),以让其他人知道问题已得到回答。 df_A <-

考虑以下数据集:

a <- c(1,23,18,47,15,56,67,43,9)
b <- c("A","B","B","C","C","B","D","A","C")
df <- data.frame(var1=a, var2=b)

a最简单的方法是使用dplyr包


a
tapply(df$var1,df$var2,FUN=mean)
很乐意帮忙。如果这回答了您满意的问题,您可以将答案标记为已接受(在投票功能下选中标记),以让其他人知道问题已得到回答。
df_A <- subset(df,var2=="A")
mean_A <- mean(df_A$var1)

df_B <- subset(df,var2=="B")
mean_B <- mean(df_B$var1)

df_C <- subset(df,var2=="C")
mean_C <- mean(df_C$var1)

df_D <- subset(df,var2=="D")
mean_D <- mean(df_D$var1)