PROSAGA码农传奇-模型可视化-创建条形图以表示ggplot2中的时间序列

<div class =“post-text”itemprop =“text”>
  
    使用它并没有多大意义
     <code>
 geom_bar()
 </code>
     考虑到你不想总结数据并要求可视化超过“时间”
  
  
    我宁愿用
     <code>
 geom_line()
 </code>
     如果要描绘条形图，请增加线条粗细。
  
   <pre>
 <code>
 library(tidyr)
library(dplyr)
library(ggplot2)
library(scales)
library(lubridate)

df <- data.frame(Date = rep(seq.Date(as.Date("2010-01-01"), as.Date("2010-12-01"), by="months"),times=2))
df$Site <- c(rep("Site.A",times = 12),rep("Site.B",times = 12))
df$Condition<- as.factor(c(0,0,0,0,1,1,1,1,0,0,0,0,
 0,0,0,0,0,1,1,0,0,0,0,0))
df$Date <- ymd(df$Date)

ggplot(df) +
  geom_line(aes(y=Site,x=Date,color=Condition),size=10)+
  scale_x_date(labels = date_format("%b-%y"))

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/th7aY.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/th7aY.png”alt =“在此处输入图片说明”/>
    </A>
  
  
    的
      注意
    </强>
     运用
     <code>
 coord_flip()
 </code>
     也不起作用，我认为这会导致Date问题，见下面的主题：
  
  
    <a href="https://stackoverflow.com/questions/33393803/how-to-use-coord-carteisan-and-coord-flip-together-in-ggplot2?rq=1">
      如何在ggplot2中一起使用coord_carteisan和coord_flip
    </A>
  
  
    <a href="https://stackoverflow.com/questions/25052000/in-ggplot2-coord-flip-and-free-scales-dont-work-together">
      在ggplot2中，coord_flip和自由缩放不能一起使用
    </A>
  
</DIV>