我有一个位置和日期的数据集。我必须绘制一个跨日期的位置的条形图。我尝试了下面的代码,但遇到了上面的错误:箭头表示行数不同。我的数据集包含约25000行数据和15列。您能帮我绘制条形图吗?
我尝试了以下代码:
for(i in 1:nrow(database)) {
if(input$n1==as.integer(unique(sub(".*/.*/","",database$pickup_date[i]))) &&
input$n2==as.integer((unique(sub("/.*/.*","",database$pickup_date[i]))))) {
date_var<-sub("/2.*","",database$pickup_date[i])
date_var<-sub("*./","",date_var)
#print(date_var)
#list<-unique(list(database$Pickup_name))
#list
count=count+1
name[count]<-as.list(sub(database$Pickup_name[i]))
}
df1<-data.frame(name,date_array)
bp1<-barplot(df1$name,names.arg = df1$date_array)
}
read.table(text='pickup_location pickup_name
2016年3月14日孟买 2016/6/12孟买 2016/1/19孟买 2016/4/6孟买 2016/3/26孟买 2016/1/30孟买 2016年6月17日孟买 2016/5/21孟买 2016年5月27日孟买 2016/3/10孟买 2016/5/10孟买 2016年5月15日孟买 2016/2/19孟买 2016年6月1日,孟买 2016/5/27浦那 5/16/2016浦那 4/11/2016浦那 2016/4/14浦那 2016/6/27浦那 2016/6/5浦那 2016/2/28浦那 4/1/2016浦那 2016/4/9浦那 2016/6/25纳西克 2016/6/3纳西克 2016/2/14纳西克 2016/2/27纳西克 2016年6月20日nashik 2016/6/13纳西克 2016/3/23纳西克 2016/5/17纳西克 2016/5/21纳西克 2016/5/10纳西克 2016/4/17纳西克 ')