带R的糟糕图

我一直在用R做这些糟糕的图表，下面有一个非常基本的代码

mydata %>%
  mutate(week = week(date)) %>%
  ggplot(aes(x = week))+
  geom_freqpoly()

在数据中，以标准日期格式记录了一个月内所有四周的事件。但正如你在图中所看到的，图表在两周之间下降到底部，这让它看起来很糟糕。那么，如何使图形从一个点转到另一个点，而不进行这种俯冲呢

重建数据帧

structure(list(ID = c(82, 23, 81, 76, 56, 17, 11, 50, 69, 84), 
                              pvm = structure(c(1295395200, 1295222400, 1295395200, 1295654400, 
                                                1294272000, 1294272000, 1293926400, 1294185600, 1294012800, 
                                                1295222400), class = c("POSIXct", "POSIXt"), tzone = "UTC")), row.names = c(NA, 
                                                                                                                            -10L), class = c("tbl_df", "tbl", "data.frame"))

---

不确定这是否是您正在寻找的东西，但您可以使用geom_点和geom_线生成“更好的图形”。我不知道这些数据是什么意思，也不知道为什么要使用geom_freqpoly

Data <- structure(list(ID = c(82, 23, 81, 76, 56, 17, 11, 50, 69, 84), 
               pvm = structure(c(1295395200, 1295222400, 1295395200, 1295654400, 
                                 1294272000, 1294272000, 1293926400, 1294185600, 1294012800, 
                                 1295222400), class = c("POSIXct", "POSIXt"), tzone = "UTC")), row.names = c(NA,-10L), class = c("tbl_df", "tbl", "data.frame"))

ggplot(Data, aes(x=pvm, y=ID), group = 1)+
  geom_point()+
  geom_line()

---

数据您可以使用
dput
提供示例数据吗？我添加了由dput生成的代码。我不知道怎么做：）希望这有帮助！使用
group_by
fromdplyr@erinho也许您想尝试不同的
binwidth
，例如
geom\u freqpoly（binwidth=1）
？谢谢您的回答。我使用geom_freqpoly是因为我只需要数据帧中名为“pvm”的事件的计数。所以实际上，这个“ID”在图中是不必要的。如果你把它放到y轴上，它不应该给出一个值吗？