使用 R 脚本的条形图答案

【问题标题】：Bar Chart Using R-Script使用 R 脚本的条形图
【发布时间】：2013-09-12 09:11:34
【问题描述】：

这里我需要使用 R-Script 制作一个图表，并且我正在使用一个名为 DF 的数据框。

a<-c("01-01-2013 12:00:00 AM","01-02-2013 12:00:00 AM",
     "01-03-2013 12:00:00 AM","01-04-2013 12:00:00 AM",
     "01-05-2013 12:00:00 AM")
b<-c(1,2,3,4,5)
c<-c(11,12,13,14,15)
d<-c(101,102,103,104,105)
e<-c(50,55,34,30,45)
DF<-data.frame(DATETIME=a,DWATT=b,TNH=c,CSGV=d,CIV=e)

要求是，需要一个使用 R-SCRIPT 的条形图来指示所有四个标签 (DWATT,TNH,CSGV,CIV) 的特定 DATETIME 的计数。它应该在每个 DATETIME 重复。

这里，x 轴应该作为 DATETIME，Y 轴应该作为计数。图表应显示每个时间的每个标签 (DWATT,TNH,CSGV,CIV) 的计数。

【问题讨论】：

恭喜您在您的第一个 Stack Overflow 问题中提供了可重现的数据 - 大多数人都没有做到这一点。请向我们展示您迄今为止编写的条形图代码。以防万一（作为初学者）您不清楚，Stack Overflow 是一个在您遇到困难时帮助您解决编程问题的地方。它不是一个其他人会简单地为您编写所有代码的地方。谢谢。

标签： r rscript

【解决方案1】：

你可以从这个开始：

barplot(t(as.matrix(DF[,2:5])), beside=F, names.arg=as.Date(DF[,1], "%d-%m-%Y"))

或者这个：

barplot(t(as.matrix(DF[,2:5])), beside=T, names.arg=as.Date(DF[,1], "%d-%m-%Y"))

【讨论】：

嗨，你能告诉我一件事，我们如何将这个图保存为 PDF 格式？
stackoverflow.com/search?q=R+save+plot+to+pdf 或 encrypted.google.com/search?&q=R+save+plot+to+pdf
嗨，但是我没有得到确切的时间。它只显示当前日期而不显示时间。我试图更改格式 ["%m/%d/%Y %I:%M:%S %p"]。但那次我什么也没得到。日期还有其他特殊格式吗？
您的日期由连字符而不是斜线分隔。 "%d-%m-%Y %I:%M:%S %p"
我也尝试过使用连字符，然后也没有与日期一起出现时间。

【解决方案2】：

install.packages("plotly")
library(plotly)
plot_ly(data = DF,x  = as.Date(DF$DATETIME,"%d-%m-%Y"),y = ~DWATT,type = "bar",name = "DWatt")%>%
add_trace(data = DF,x  = as.Date(DF$DATETIME,"%d-%m-%Y"),y = ~TNH,type = "bar",name = "TNH")%>%
 add_trace(data = DF,x  = as.Date(DF$DATETIME,"%d-%m-%Y"),y = ~CSGV,type = "bar",name = "CSGV")%>%
add_trace(data = DF,x  = as.Date(DF$DATETIME,"%d-%m-%Y"),y = ~CIV,type = "bar",name = "CIV")

如果您想要互动，请使用它:)

【讨论】：