',Форум)
  dates2<-dates1 [сл (2, длина (dates1), от = 2)]
  forum2<-Forum [dates2]
  если (длина (Grep ("редактировать", Forum2))>0) {
    forum3<-forum2 [-grep ("редактировать", Forum2)]
  } Еще {
    forum3<-forum2
  }
 
  датирует = NULL
  для (я в 1: длина (forum3)) {
    температура<-unlist (strsplit (forum3 [I],">"))
    Дата<-strsplit (температура [2],"   
    даты<-rbind (даты, дата)
  }
 
  allposts<-rbind (allposts, дата)
 
  Num<-20 + as.numeric (NUM)
  печати (NUM)
}

rownames (allposts)<-1: длина (allposts)

allposts<-allposts [-Какие (allposts =="<б")]

alldates = NULL,
для (я в 1: длина (allposts)) {
  температура<-unlist (
    strsplit (
      unlist (strsplit (allposts [I],", ")),
      " "
    )
  )
 
  temp2<-cbind (температура [1], темп [2], темп [3])
 
  alldates<-rbind (alldates, temp2)
}
alldates<-as.data.frame (alldates)
alldates [1]<-as.character (alldates [1])
alldates [2]<-as.numeric (as.character (alldates [2]))
alldates [3]<-as.numeric (as.character (alldates [3]))



мес<-month.name [1]
год<-2012
отсчеты = NULL

(за год в с (2012,2013)) {
  для (м в 1: длина (month.name)) {
    мес<-month.name [м]
    температура<-alldates [который (alldates [1] == мес & alldates [3] == год),]
    если (nrow (температура)>0) {
     
     
      для (я в 1: макс (темп [2])) {
        CNT<-длина (который (темп [2] == я))
       
        counts.temp<-cbind (уникальный (температура [1]), я, уникальная (температура [3]), CNT)
        счетчики<-rbind (число импульсов, counts.temp)
      }
     
    }
   
  }
 
}

счетчики<-as.data.frame (отсчеты)
отсчеты [1]<-as.character (число импульсов [1])
подсчитывает [2]<-as.numeric (as.character (число импульсов [2]))
отсчеты [3]<-as.numeric (as.character (число импульсов [3]))
подсчитывает [4]<-as.numeric (as.character (число импульсов [4]))



x.vals<-round (сл (1, nrow (отсчеты), длина = 10), 0)
x.labs<-paste (отсчеты [x.vals, 1], подсчитывает [x.vals, 2], [x.vals подсчитывает, 3])

участок (отсчеты [4], тип ="L", LWD = 2, столбец ="красный",
     ylab ="Количество сообщений", Xaxt ="N", Xlab ="",
     Основные ="Сообщений в день в Wall Observer тему"
)
Ось (сторона = 1, при = x.vals, этикетки = x.labs)