barplot有哪些替代品？

Question

我有以下数据集，其中包括2014年和2015年某个代理商的评估的几个方面：

mydata<-data.frame(X2014 = c(200,1500,14, 1499), X2015 = c(100,1657,16, 1234))

我正在尝试创建一个比较情节，这有助于了解2015年与2014年相比总体上是更好还是更差的一年以及哪些方面（变量）。我已经尝试过每年使用一个简单的条形图（给予或进行一些调整以使其看起来不错）：

barplot(as.matrix(mydata))

然而，我想知道是否有替代方案来帮助可视化这种数据集。帮助会被贬低。

Answer 1

你的问题不清楚（只有一个关键细节才出现在评论中），但这样的事情可能就是你想要的

mydata <- data.frame(X2014 = c(200,1500,14, 1499), 
                     X2015 = c(100,1657,16, 1234),
                     what = c("Income", "Costs", "Sales", "Losses" ))

library(tidyr)
mydata_long <- gather(mydata, year, value, X2014:X2015)

library(ggplot2)
ggplot(mydata_long, aes(year, value, colour = what)) +
  geom_point(size = 5) +
  geom_line(aes(group = what)) +
  theme_bw()

如果每个变量的测量单位不同，也许这更合适：

ggplot(mydata_long, aes(year, value, colour = what)) +
  geom_point(size = 5) +
  geom_line(aes(group = what)) +
  facet_wrap(~what, scales = 'free') +
  theme_bw()

我们可以将这些情节放在一个堆栈中，以便更容易看到年度比较：

ggplot(mydata_long, aes(year, value, colour = what)) +
  geom_point(size = 5) +
  geom_line(aes(group = what)) +
  facet_wrap(~what, scales = 'free', ncol = 1) +
  theme_bw()