Ошибка в data.frame: аргументы подразумевают различное количество строк: 250000, 31

Question

У меня есть набор данных о местах и ​​датах. Я должен построить гистограмму местоположений по датам. Я попробовал приведенный ниже код, но получил ошибку выше: argunets подразумевает различное количество rows.my набор данных содержит около 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

3/14/2016 Мумбаи 6/6/2016 Мумбаи 19.01.2016 Мумбаи 6/6/2016 Мумбаи 26.03.2016, Мумбаи 30.01.2016 Мумбаи 17.06.2016, Мумбаи 21.05.2016, Мумбаи 27.05.2016, Мумбаи 3/10/2016 Мумбаи 5/10/2016 Мумбаи 15.05.2016, Мумбаи 19.02.2016, Мумбаи 01.06.2016, Мумбаи 27.05.2016 пуна 16.05.2016 пуна 4/11/2016 пуна 14.04.2016 пуна 27.06.2016 пуна 05.06.2016 пуна 28.02.2016 пуна 01.04.2016 пуна 9/9/2016 пуна 25.06.2016 нашик 03.06.2016 нашик 14.02.2016 нашик 27.02.2016 нашик 20.06.2016 нашик 13.06.2016 нашик 23.03.2016 нашик 17.05.2016 нашик 21.05.2016 нашик 10/10/2016 нашик 17.04.2016 нашик «)