将ggplot2中的x轴标签设置为原始输入

Question

我是ggplot的新手，遇到了从未有过的问题：我有一个数据集，其中包含不同年份的值。 问题在于年份之间的差距不是恒定的（1993、1995、2000、2005、2010、2014）。 当我绘制整个图时，我得到了（当然）：

我想不出一种方法，可以使条形组之间保持恒定的距离，并在轴上保留原始年份。

你有什么提示吗？

Answer 1

这应该做的工作

library(ggplot2)

set.seed(10)
y <- sample(1990:2015,5)
data <- data.frame(expand.grid(Year=y, tag=c("a","b","c")))

data$value <- rnorm(nrow(data))*10 + 50
data$Year <- as.factor(data$Year)

ggplot(data, aes(x=Year,y=value)) + 
  geom_bar(stat = "identity",aes(fill=tag), position="dodge")

Answer 2

可以通过使用折线图来代替通过在每个钢筋组之间强制相同的距离来扭曲时间关系。 这使得查看趋势和比较组变得更加容易，并且还避免了扭曲时间尺度：

library(ggplot2)

# Fake data
set.seed(115)
dat = data.frame(auto=rnorm(18,200,50), year=rep(c(1993,seq(1995,2010,5),2014), each=3),
                 group=rep(c("A","B","C"),6))

pd = position_dodge(0.8)

ggplot(dat, aes(year, auto, color=group)) +
  geom_line(position=pd) +
  geom_point(position=pd) +
  scale_y_continuous(limits=c(0,max(dat$auto))) +
  scale_x_continuous(minor_breaks=1993:2016) +
  theme_bw()