Question

我希望这个标题不要太混乱。我有10个日期的数据，每个数据点都被标记为“灌溉”或“降水”。我想制作一个条形图，该条形图按时间顺序为每个值绘制一个条形，并在条形下标出日期，但也希望条形采用颜色编码（例如，“灌溉”中的所有条形均为红色，而“降水”中的那些将是蓝色。）

我对R很陌生，这可能吗？如果是这样，将不胜感激。

这是我的数据：

dput(head(data)) 
     structure(list(Date = structure(4:9, .Label = c("7/11/2019", 
     "7/13/2019", "7/15/2019", "7/2/2019", "7/3/2019", "7/4/2019", 
     "7/5/2019", "7/6/2019", "7/7/2019", "7/9/2019"), class = "factor"), 
         Inches = c(1.6, 0.02, 0.35, 0.64, 0.07, 0.35), Type = structure(c(2L, 
    2L, 1L, 2L, 2L, 1L), .Label = c("Irrigation", "Precipitation"
    ), class = "factor")), row.names = c(NA, 6L), class = "data.frame")

Answer 1

您可以使用dplyr和ggplot2制作条形图。 stat='identity'调用意味着每个条形高度都使用数据中的相应值，position='dodge'并排放置而不是堆叠。

df <- data.frame(date=c(paste0('2019-0',1:9),'2019-10'),
                 precipitation=runif(10),irrigation=runif(10))
df

df %>% gather(k,v,-date) %>% 
  ggplot(aes(date,v,fill=k)) + geom_bar(stat='identity',position = 'dodge') +
  theme(axis.text.x = element_text(angle = 45,hjust=1))

编辑

以下是使用从dput提供的数据的条形图。我不知道您的数据已经被归为一列。

df <- structure(list(Date = structure(4:9, .Label = c("7/11/2019", 
                                                "7/13/2019", "7/15/2019", "7/2/2019", "7/3/2019", "7/4/2019", 
                                                "7/5/2019", "7/6/2019", "7/7/2019", "7/9/2019"), class = "factor"), 
               Inches = c(1.6, 0.02, 0.35, 0.64, 0.07, 0.35), Type = structure(c(2L, 
                                                                                 2L, 1L, 2L, 2L, 1L), .Label = c("Irrigation", "Precipitation"
                                                                                 ), class = "factor")), row.names = c(NA, 6L), class = "data.frame")
df %>% ggplot(aes(Date,Inches,fill=Type)) + geom_bar(stat='identity',position = 'dodge') +
  theme(axis.text.x = element_text(angle = 45,hjust=1))

如何制作遵循时间序列的条形图，但对来自不同因素的条形图使用不同的颜色

1 个答案: