在R上绘制条形图，分组为2s

作者: 谦成
发布时间: 2024-05-05 11:34:42 (2月前)
转自：

3 条回复

0#
回复此人
滔滔江水 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这是因为 <code> barplot </code> 喜欢转置矩阵。 </p> <pre> <code> m <- as.matrix(main_total) </code> </pre> <P> 使用 <code> t </code> 转置矩阵。 </p> <pre> <code> b <- barplot(t(m), beside=TRUE, ylab="Value", ylim=c(round(min(m), 1), round(max(m), 1)), col=3:4) axis(1, colMeans(b), c("H", "M", "S")) legend("topleft", legend=c("Main", "Total"), fill=3:4) box() </code> </pre> <P> 的<strong> <EM> 给 </EM> </强> </p> <P> <a href="https://i.stack.imgur.com/CDIKU.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/CDIKU.png”alt =“在此输入图像说明”/> </A> </p> </DIV>

编辑
1#
回复此人
咿呀哟 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您可以在这里得到这个想法，因为您没有在示例代码中包含分组变量。 </p> <pre> <code> df <- structure(list(Main = c(0.468893939007605, 0.0629924918425918, 0.561410474480681), Total = c(0.388090040532888, -0.0706047151157143, 0.483298239353565)), class = "data.frame", row.names = c(NA, -3L)) df$Group <- c('H','M','S') # Assign group variables library(reshape2) # Data frame needs to be in long format df.m <- melt(df,id.vars = "Group") df.m library(ggplot2) ggplot(df.m, aes(x=Group,y=value)) + geom_bar(aes(fill=variable),stat = 'identity',position = 'dodge') </code> </pre> <P> <a href="https://i.stack.imgur.com/yVGBA.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/yVGBA.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑

登录后才能参与评论