使用“我的数据帧”的子集创建R条形图

使用“我的数据帧”的子集创建R条形图,r,dataframe,bar-chart,subset,R,Dataframe,Bar Chart,Subset,我试图用下面的数据框和代码在R中绘制一个条形图。然而,当我这样做时,年份列也被插入到我的图表中。有没有办法阻止这种情况发生,但仍然保持我的图表按年份排序 barplot(t(as.matrix(Number_Letter_Year_DF)), beside=TRUE, xlab="Year", ylab="Number", names.arg=c("2016","2017&

我试图用下面的数据框和代码在R中绘制一个条形图。然而,当我这样做时,年份列也被插入到我的图表中。有没有办法阻止这种情况发生,但仍然保持我的图表按年份排序

 barplot(t(as.matrix(Number_Letter_Year_DF)), beside=TRUE, 
            xlab="Year", ylab="Number", 
            names.arg=c("2016","2017", "2018"),
            legend= c("A", "B","C","D","E","F"),  args.legend = list(title="Letter", x="topright", cex=.7))
            abline(h=0)



Year     A     B     C     D     E     F
2016 2547.150 2001.075 2493.925 1123.450 1876.625 1718.175
2017 2829.025 1808.025 2681.850 2633.425 3005.525 2542.550
2018 1776.175 1538.900 1614.675  845.225 1155.500 1029.325

我们可以删除第一列,即“年”,并将其更改为行名称

barplot(t(`row.names<-`(as.matrix(Number_Letter_Year_DF[-1]), Number_Letter_Year_DF$Year)), beside=TRUE, 
         xlab="Year", ylab="Number", 
         names.arg=c("2016","2017", "2018"),
         legend= c("A", "B","C","D","E","F"),  args.legend = list(title="Letter", x="topright", cex=.7))
         abline(h=0)

barplot(t(`row.names非常感谢!我还有其他28个变量需要转换成这种格式……有没有办法不用单独键入它们各自的值就可以去掉行名?或者有没有办法重组我所有的组?我使用了-Variable\u Rotation\u Year_DF@Phiefs3000.你有物体的名字吗它以
Smois\u旋转开始,或者是不同的名称。如果您有两个以上的对象,请将其放在列表中,并使用
lappy
执行一次,即
lst1@Phiefs3000,然后您可能需要更改模式iin
ls
如果这些对象只是全局环境中的对象,请使用
ls()
Number_Letter_Year_DF <- structure(list(Year = 2016:2018, A = c(2547.15, 2829.025, 1776.175
), B = c(2001.075, 1808.025, 1538.9), C = c(2493.925, 2681.85, 
1614.675), D = c(1123.45, 2633.425, 845.225), E = c(1876.625, 
3005.525, 1155.5), F = c(1718.175, 2542.55, 1029.325)), class = "data.frame", 
row.names = c(NA, 
-3L))