R 的糟糕图表

Question

我一直在用 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"))

Answer 1

不确定这是否是您正在寻找的东西，但您可以使用 geom_point 和 geom_line 来生成“更好的图表”。我不确定数据的含义以及您使用 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()

Geom_point and Line graoh

这个回答问题游戏的新手，但如果这不是你要找的，请告诉我。