问题描述
我正在尝试使用 lapply() 或 walk() 创建一个包含多个直方图的矩阵 - 来自 purrr 包。
这是我的数据集的捏造版本，仅包括 11 列中的 5 列和大约 100 行中的 3 列：
| pid | 性别 | 兰德 | BP | GH | VT |
|---|---|---|---|---|---|
| 1 | F | D | 5 | 7 | 5 |
| 2 | M | A | 6 | 10 | 5 |
| 3 | F | D | 0 | 30 | 5 |
这是我正在使用的代码，我想添加一些东西来根据 i 值更改 x 标签。
x <- datf #dataframe
u <- x[,4:11]
par(mfrow=c(2,4))
walk(x[,4:11],function(i)
{hist(i[x$rand=="D"],col=rgb(0,1,0.2),main = "Histogram of score",ylim=c(0,100))
hist(i[x$rand=="A"],col=rgb(1,add=TRUE)})
我使用了 lapply() 而不是 walk() - 但是为了隐藏 Rmarkdown 文档中的输出而改为 walk()。
在阅读类似问题后，我尝试使用 xlab = paste(colnames(i)) 和 xlab = paste(colnames(u))； Using lapply on a dataframe to create histograms with labels 和 Labels for histogram,when using “lapply”
xlab = paste(colnames(u)) 是最接近的，但直方图中的 x 标签不是正确的，而是所有这些的列表。
请看图片。
Image
但是，当我创建一个类似的直方图但直方图中只有一组数据时，即不包括 hist(i[x$rand=="A"],add=TRUE)。它工作正常。
mapply(hist,as.data.frame(x[,4:11]),main=colnames(x[,xlab="score")
Library("dplyr")
datf <- data.frame(cbind(sample(0:100,size=150,replace=T),sample(0:100,replace=T)))
datf$rand <- sample(c("D","A"),150,replace=T,prob=c(0.45,0.45))
datf$pid <- sample(1:150,replace=F,size=150)
datf$gender <- sample(c("F","M"),prob=c(0.35,0.65))
datf <- datf%>%
rename(
BP=X1,GH=X2,VT=X3,MH=X4,SF=X5,PF=X6,RP=X7,RE=X8
)
datf <- datf[,c("pid","rand","gender","BP","GH","VT","MH","PF","RP","RE","SF")]
和 dput()
structure(list(pid = c(108L,54L,75L,2L),rand = c("A","A",gender = c("M","M","F",BP = c(70L,13L,27L,66L),GH = c(2L,68L,61L,19L),VT = c(57L,30L,0L),MH = c(65L,69L,21L,47L),PF = c(100L,38L,70L,60L),RP = c(77L,59L,38L),RE = c(66L,9L,48L),SF = c(30L,74L,64L,20L
)),row.names = c(NA,4L),class = "data.frame")
这就是我希望输出的样子： See image here
使用ggplot会更容易吗？ - 但那又如何？
提前致谢！
解决方法
也许这样的东西更接近你要找的东西？
path('login',views.user_login,name='login')
