使用具有重复 x 值的 ggplot 创建累积和图

发布于 2025-01-11 00:03:35 字数 1310 浏览 0 评论 0原文

在我假设的例子中，人们在摊位订购冰淇淋，每次下订单时，都会记录下订单的月份和下订单的数量。每行代表一个唯一的下订单人。对于每种口味的冰淇淋，我很想知道各个月份的累计订单量。例如，如果 4 月份总共下了 3 个 Vanilla 订单，5 月份下了 4 个订单，则图表应显示 4 月份的 3 个数据点和 5 月份的 7 个数据点。

我遇到的问题是每一行都是单独绘制的（因此 4 月份会有 3 个单独的点，而不是只有 1 个）。

我的第二个问题是我的日期在图表上没有按时间顺序排列。我认为将“月份”列转换为“日期”格式可以解决此问题，但似乎没有。

下面是我的代码：

library(lubridate)

Flavor <- c("Vanilla", "Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","chocolate","chocolate","chocolate")
Month <- c("1-Jun-21", "1-May-19", "1-May-19","1-Apr-19", "1-Apr-19","1-Apr-19","1-Apr-19", "1-Mar-19", "1-Mar-19", "1-Mar-19","1-Mar-19", "1-Apr-19", "1-Mar-19", " 1-Apr-19", " 1-Jan-21", "1-May-19", "1-May-19","1-May-19","1-May-19","1-Jun-19","2-September-19", "1-September-19","1-September-19","1-December-19","1-May-19","1-May-19","1-Jun-19")
Orders <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2)           

data <- data.frame(Flavor,Month,Orders)
data$Month <- dmy(data$Month)
str(data)

data2 <- data[data$Flavor == "Vanilla",]
ggplot(data=data2, aes(x=Month, y=cumsum(Orders))) + geom_point()

原文

In my hypothetical example, people order ice-cream at a stand and each time an order is placed, the month the order was made and the number of orders placed is recorded. Each row represents a unique person who placed the order. For each flavor of ice-cream, I am curious to know the cumulative orders placed over the various months. For instance if a total of 3 Vanilla orders were placed in April and 4 in May, the graph should show one data point at 3 for April and one at 7 for May.

The issue I am running into is each row is being plotted separately (so there would be 3 separate points at April as opposed to just 1).

My secondary issue is that my dates are not in chronological order on my graph. I thought converting the Month column to Date format would fix this but it doesn't seem to.

Here is my code below:

library(lubridate)

Flavor <- c("Vanilla", "Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Vanilla","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","Strawberry","chocolate","chocolate","chocolate")
Month <- c("1-Jun-21", "1-May-19", "1-May-19","1-Apr-19", "1-Apr-19","1-Apr-19","1-Apr-19", "1-Mar-19", "1-Mar-19", "1-Mar-19","1-Mar-19", "1-Apr-19", "1-Mar-19", " 1-Apr-19", " 1-Jan-21", "1-May-19", "1-May-19","1-May-19","1-May-19","1-Jun-19","2-September-19", "1-September-19","1-September-19","1-December-19","1-May-19","1-May-19","1-Jun-19")
Orders <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2)           

data <- data.frame(Flavor,Month,Orders)
data$Month <- dmy(data$Month)
str(data)

data2 <- data[data$Flavor == "Vanilla",]
ggplot(data=data2, aes(x=Month, y=cumsum(Orders))) + geom_point()

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

花桑 2025-01-18 00:03:35

在这些情况下，通常最好预先计算所需的摘要并将其发送到 ggplot，而不是乱用 ggplot 的摘要函数。为了清楚起见，我还添加了一个 geom_line() 。

data %>% 
  group_by(Flavor, Month) %>% 
  summarize(Orders = sum(Orders)) %>% 
  group_by(Flavor) %>% 
  arrange(Month) %>% 
  mutate(Orders = cumsum(Orders)) %>% 
ggplot(data = ., aes(x=Month, y=Orders, color = Flavor)) + geom_point() + geom_line()

In these situations, it's usually best to pre-compute your desired summary and send that to ggplot, rather than messing around with ggplot's summary functions. I've also added a geom_line() for clarity.

data %>% 
  group_by(Flavor, Month) %>% 
  summarize(Orders = sum(Orders)) %>% 
  group_by(Flavor) %>% 
  arrange(Month) %>% 
  mutate(Orders = cumsum(Orders)) %>% 
ggplot(data = ., aes(x=Month, y=Orders, color = Flavor)) + geom_point() + geom_line()

回复收藏 0 原文

~没有更多了~