3

我有一个数据集，在 x 轴上有一个离散的有序因子。我想将渲染从条形图更改为折线图（样式为geom_freqpoly）。我不能geom_freqpoly直接使用，因为我已经汇总了数据，而且我不知道如何将统计数据从 更改stat = "bin"为stat = "identity". 我怎样才能做到这一点？

这是数据：

temp <- structure(list(wday = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 
4L, 5L, 5L, 6L, 6L, 7L, 7L), .Label = c("Monday", "Tuesday", 
"Wednesday", "Thursday", "Friday", "Saturday", "Sunday"), class = c("ordered", 
"factor")), splitter = c(FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, 
FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE), N = c(250245, 
40845, 209685, 45946, 200983, 49403, 142869, 52212, 88589, 48175, 
51061, 25317, 84012, 7994), price1 = c(22.79, 70.20, 35.92, 87.66, 
48.98, 55.37, 22.56, 88.50, 26.12, 63.29, 35.88, 73.79, 33.12, 82.80
)), .Names = c("wday", "splitter", "N", "price1"), class = "data.frame", 
row.names = c(NA, -14L))

这是情节：

ggplot(melt(temp,id.vars = c("wday","splitter")), 
  aes(x = wday, y = value, fill = splitter)) + 
  geom_bar(stat = "identity", position = "dodge") + 
  facet_grid(variable ~ ., scale = "free_y")

虽然我认为下面的代码会起作用，但它不会：

ggplot(melt(temp,id.vars = c("wday","splitter")), 
  aes(x = wday, y = value, colour = splitter)) + 
  geom_point() + geom_line() +
  facet_grid(variable ~ ., scale = "free_y")
4

1 回答 1

3

问题是缺少群体审美。该函数geom_line将因子用作默认分组变量（此处为wday和splitter），因此每个组都是一个数据点。在中指定分组aes会根据需要呈现行：

ggplot(melt(temp,id.vars = c("wday","splitter")), 
  aes(x = wday, y = value, colour = splitter, group = splitter)) + 
  geom_point() + geom_line() +
  facet_grid(variable ~ ., scale = "free_y")

现在有了线条！

于 2013-08-27T22:13:05.257 回答