给出以下示例数据:
df<-data.frame(cbind(cntry<- c("BE","ES","IN","GE","BE","ES","GE",NA,"IN","IN"),
gndr<- c(NA,1,2,2,2,2,1,1,1,2),
plcvcrcR<-c(0,1,NA,0,0,1,1,1,0,0),
plcpvcrR<-c(0,1,1,1,NA,0,0,0,0,0),
plccbrgR<- c(0,1,0,NA,0,1,0,1,1,0),
plcarcrR<-c(1,0,0,NA,1,0,1,0,0,0),
plcrspcR<-c(1,1,0,0,0,0,0,1,1,NA)))
colnames(df)<- c("cntry", "gndr", "plcvcrcR", "plcpvcrR", "plccbrgR", "plcarcrR", "plcrspcR")
df
我怎样才能为每个性别( gndr
)显示变量 plcpvcrR
, plccbrgR
, plcarcrR
的 1-values
的百分比?优选地,针对每个性别的条形被分组,并且针对不同变量具有不同颜色的条形 .
像这样的图像,其中一种颜色指的是问题,而一组颜色指的是性别(没有置信区间):
我已经尝试了以下功能,其中我知道它包含许多缺陷:
barplot(((colSums(df[c(3:5)], na.rm=TRUE)/nrow(df[c(3:5)]))*100)~gndr)
1 回答
我会做这样的事情:
获得百分比可能更容易/更直接 . 这是情节: