用ggplot2绘制虚拟变量

时间:2020-10-22 16:32:07

标签: r ggplot2

在这个问题上,我实际上需要帮助: ggplot2 graphic order by grouped variable instead of in alphabetical order。 我需要产生类似的图形,而黑点实际上是有问题的。我有数据,列名是日期,行用0或1填充,如果值是1,则需要绘制点。要重现,这是一个小样本(在我的数据集中,有300多个列):< / p>

df <- data.frame(id=c(1,2,3),
                 "26April1970"=c(0,0,1),
                 "14August1970"=c(0,1,0))

我需要在x轴上绘制日期,将id与州匹配,并显示值为1的点。 有人可以帮忙吗?

2 个答案:

答案 0 :(得分:0)

也许您正在寻找这个:

Average

输出:

enter image description here

答案 1 :(得分:0)

尝试一下:

plot_data = df %>% 
  ## put data in long format
  pivot_longer(-id, names_to = "colname") %>%
  ## keep only 1s
  filter(value == 1) %>%
  ## convert dates to Date class
  mutate(date = as.Date(colname, format = "%d%B%Y"))
plot_data
# # A tibble: 2 x 4
#      id colname      value date      
#   <dbl> <chr>        <dbl> <date>    
# 1     2 14August1970     1 1970-08-14
# 2     3 26April1970      1 1970-04-26


## plot
ggplot(plot_data, aes(x = date, y = factor(id))) +
  geom_point()

enter image description here


使用此数据:

df <- data.frame(id=c(1,2,3),
                 "26April1970"=c(0,0,1),
                 "14August1970"=c(0,1,0), check.names = FALSE)