Question

这里我需要使用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轴应该是count。图表应显示每个时间点的每个标签的计数（DWATT,TNH,CSGV,CIV）。

Answer 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"))

Answer 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")

如果要进行交互，请使用此：）

使用R脚本的条形图

2 个答案: