Question

我在从我的R降价获取绘图（仅是绘图栏中的条形图）以pdf或html输出时遇到了一些麻烦。我不知道是什么导致了问题，但感觉就像我已经尝试了所有能够找到的建议一样。我也尝试过在不打印图的情况下运行它。这是我的代码，我包括了第一块代码，以防万一其中的内容可能给我带来麻烦。

library(lubridate)
z<-subset(df,!is.na(date),)
df$date <- ymd_hms(df$date)
df$date <- floor_date(df$date,unit='month')

time.range <- (unclass(max(df$date)-min(df$date))/365)[1]

{r,echo=FALSE,warning=FALSE,message=FALSE}
p <- df %>%
  filter(!is.na(state)) %>%
  count(state) %>%
  arrange(desc(n))%>%
  top_n(20) %>% mutate(avg = as.integer(n/time.range))%>%
  ggplot(aes(x=reorder(state,-avg),y=avg))+
  geom_bar(stat='identity',fill='darkgreen',alpha=0.9)+
  scale_y_continuous(breaks=seq(0,2000,200))
print(p)

无法将ggplot渲染为pdf / html / doc

0 个答案: