小编Mos*_*afa的帖子

我想用 dplyr 包为我的所有列做一个数据帧的平均值。

n = c(NA, 3, 5) 
s = c("aa", "bb", "cc") 
b = c(3, 0, 5) 
df = data.frame(n, s, b)

在这里，我希望我的函数使我尝试过的 n 和 b 列的均值 = 4，mean(df$n[df$n>0])但这对于大型数据框来说并不容易。我想要类似df %>% summarise_each(funs(mean))......谢谢

我有一个带有一些文本层的条形图，所有这些都与 ggplot 库一起正常工作，但现在我想添加一些与 ggplotly 的交互性，但它无法显示文本层\n我更新了所有包，但问题仍然存在

df = read.table(text = "\nid   year  type amount\n                1  1991  HIIT     22\n                2  1991 inter    144\n                3  1991  VIIT     98\n                4  1992  HIIT     20\n                5  1992 inter    136\n                6  1992  VIIT    108\n                7  1993  HIIT     20\n                8  1993 inter    120\n                9  1993  VIIT    124\n                10 1994  HIIT     26\n                11 1994 inter    118\n                12 1994  VIIT    120\n                13 1995  HIIT     23\n                14 1995 inter    101\n                15 1995  VIIT    140\n                16 1996  HIIT     27\n                17 1996 …

我想比较一下CART和CHAID算法，我选择rpart（cart algorithm）和party（chaid algorithm）来看看它们的区别。我的数据是关于血压的：

派对功能返回我：

library(party)
# par <- ctree_control(minsplit=20, minbucket=10)
arbre <- ctree(bpress_level ~ ., data = df)
arbre
plot(arbre)

rpart 包返回给我：

library(rpart)
fit <- rpart(bpress_level ~ .,
             method="class", data=df)

printcp(fit) # display the results
plotcp(fit)

plot(fit, uniform=TRUE,
     main="Classification Tree for pressure level")
text(fit, use.n=TRUE, all=TRUE, cex=.8)

我不明白为什么树决定素如此不同，这正常吗？为什么对于派对包，算法会忽略烟雾，压力，性别......提前谢谢你。

我有一些带有一些文字的直方图,我试图将它作为相应类型的中心

df = read.table(text = "
id   year  type amount
                1  1991  HIIT     22
                2  1991 inter    144
                3  1991  VIIT     98
                4  1992  HIIT     20
                5  1992 inter    136
                6  1992  VIIT    108
                7  1993  HIIT     20
                8  1993 inter    120
                9  1993  VIIT    124
                10 1994  HIIT     26
                11 1994 inter    118
                12 1994  VIIT    120
                13 1995  HIIT     23
                14 1995 inter    101
                15 1995  VIIT    140
                16 1996  HIIT     27
                17 1996 inter    103
                18 1996 …

我想在我的数据框架中创建一个列,在那里我可以将数据帧的另外两列相加.

df <- data.frame(x = 1:10, y = 11:20)

在这里,例如,我想添加第三列z,我有:

z <- c(12, 14, 16,..., 30)

提前致谢.