水平桶形图和平均值(表)

Question

所以我有这个数据向量，它代表平均：

a1<-c(5.0, 4.0, 7.0, 5.3, 3.5)
names(a1)<-c(as.character(c("Power", "Strenght", "Price", "Perf.", "CCM")))

而这个代码可以生成barplot

barplot(a1, main="Distribution",
        xlab="N", col=1:5,horiz=TRUE)
        legend("topright", 
        legend = names(a1), 
        fill = 1:5,
        cex = 0.75)

我的结果是

​

​

现在，我想知道是否有一种方法，可以编辑我的R代码并将其作为我的输出：

​

​

上面的图片是我在网上找到的一份报告的打印屏幕。因此，我想创建这些(或类似的)地块和平均值表，例如，战略规划技能将呈现CCM和诸如此类的堡垒？

Answer 1

像这样吗？

​

​

df <- data.frame(x=names(a1), y=a1)
library(ggplot2)
ggplot(df, aes(x,y, fill=x)) + geom_bar(stat="identity")+ coord_flip()+
  geom_text(aes(y=max(y)+0.5, label=y), color="black")+
  scale_fill_discrete(guide="none")+
  theme_bw()+theme(panel.grid=element_blank())

编辑:对OP的评论的回应。

ggplot(df, aes(x,y, fill=x)) + geom_bar(stat="identity")+ coord_flip()+
  geom_text(aes(y=max(y)+0.5, label=y), color="black", hjust=0)+
  scale_fill_discrete(name="", guide=guide_legend(reverse=TRUE))+
  theme_bw()+
  theme(panel.grid=element_blank(), axis.title=element_blank(),
        axis.text.y=element_blank(), axis.ticks.y=element_blank())

​

​