小编use*_*028的帖子

我记得使用了一个选项设置,可以在R控制台中打印服务器和ui之间的消息,同时运行闪亮的应用程序.此选项对于了解应用程序中发生的情况非常有用.但是我无法记住该选项的名称,并且在文档中找不到它.有人可以说出那个选项是什么吗？谢谢!

考虑一个简单的ggplot2图

library(ggplot2) 
dat <- data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE))
ggplot(dat)+geom_point(aes(x=value,y=name))

有没有办法有条件地修改轴y标签(比如颜色)的样式属性,例如取决于outlier列dat？

结果就像是

在具有大量项目的图形上,此功能将极大地提高图形可读性和影响力.

我想在矩阵上应用矩阵中每个值的值,行索引和列索引的函数,并获得转换后的矩阵.例如

mat<-matrix(c(1,2,3,4),2,2)    
mat
     [,1] [,2]
[1,]    1    3
[2,]    2    4

f<-function(x,i,j){x+i+j}
mat2 <- my.apply(f,mat)
mat2
     [,1] [,2]
[1,]    3    6
[2,]    5    8

上面的示例仅用于说明目的,f可能要复杂得多.

apply 因为处理额外参数的方式不起作用.

apply(mat,1:2,f,seq_along(mat[,1]),seq_along(mat[1,]))
, , 1

     [,1] [,2]
[1,]    3    4
[2,]    5    6

, , 2

     [,1] [,2]
[1,]    5    6
[2,]    7    8

我无法找到与lapply家人同行的方式.一个for循环可以完成这项工作,但它不会有效也不优雅.有什么建议？谢谢