2016-12-02 44 views
0

我從我的數據文件使用此synthax彙總表中插入值:如何在表

sumtab <- as.data.frame(table(S$MONTH)) 
colnames(sumtab) <- c("Month", "Frq") 
rownames(sumtab) <- c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug", 
        "Sep","Oct","Dec") 

此表sumtab所得:

Month Frq 
Jan 1  3 
Feb 2  5 
Mar 3 16 
Apr 4 45 
May 5 11 
Jun 6 16 
Jul 7 99 
Aug 8 101 
Sep 9 45 
Oct 10 456 
Dec 12 112 

而這個腳本產生ggplot:

ggplot(sumtab, aes(x=Month,y=Frq),width=1.5) + 
    scale_y_continuous(limit=c(0,17),expand=c(0, 0)) + 
    geom_bar(stat='identity',fill="lightgreen",colour="black") + 
    xlab("Month") + ylab("No of bears killed") + 
    theme_bw(base_size = 11) + 
    theme(axis.text.x=element_text(angle=0,size=9)) 

問題是在我的數據中沒有11月份的值,我需要以某種方式輸入零11月份在桌上。對於大多數人來說,這可能是一件簡單的事情,而且我試圖在其他問題上進行搜索,並且我已經搜索並閱讀了這些書籍,但無法找到正確的合成詞。需要一些幫助。

添加rbind到腳本:

sumtab <- as.data.frame(table(S$MONTH)) 
sumtab <- rbind(sumtab, c(11, 0)) 

生成此錯誤消息:

Warning message: 
In `[<-.factor`(`*tmp*`, ri, value = 11) : 
    invalid factor level, NA generated 

螞蟻這個表:

Var1 Freq 
1  1 3 
2  2 5 
3  3 6 
4  4 14 
5  5 7 
6  6 2 
7  7 13 
8  8 12 
9  9 3 
10 10 1 
11 12 4 
12 <NA> 0 

所以感謝@PaulH您的幫助,但我很可能以錯誤的方式使用了你的幫助。

回答

1

你可以使用rbind命令添加十一月行:

sumtab <- rbind(sumtab, Nov = c(11, 0)) 

祝你好運!