2016-06-20 10 views
2

x 축이 1975-2015 년 인 R로 막대 그래프를 만들려고합니다. 연도는 변수 data3$q18yearFirstSclLens에 있습니다.몇 년 동안 아무런 관측이없는 경우에도 X 축에 매년 레이블을 지정합니다.

> yearcount2 <- table(data3$q18yearFirstSclLens) 

> yearcount2 

1976 1982 1983 1984 1985 1986 1987 1989 1991 1992 1993 1994 1995 1997 1998 1999 2000 2001 2002 2003 
1 2 2 2 2 1 2 2 1 1 1 2 2 2 5 7 10 6 3 9 
2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 
8 25 18 26 43 52 78 84 88 91 47 1 

다음 내 barplot 줄거리 :

> bp <- barplot(yearcount2, main="", xlab="", ylab="", ylim=c(0,100), las=2, cex.names=0.75, xaxt="n") 

enter image description here

을하지만 물론 나는 단지 관찰가있는 년을 얻을

나는 몇 년 얻는다. 관측이없는 해를 포함하여 1975 ~ 2015 년 동안의 x 축 플롯을 어떻게 만들 수 있습니까?

> dput(yearcount2) 
structure(c(1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 
2L, 5L, 7L, 10L, 6L, 3L, 9L, 8L, 25L, 18L, 26L, 43L, 52L, 78L, 
84L, 88L, 91L, 47L, 1L), .Dim = 32L, .Dimnames = structure(list(
c("1976", "1982", "1983", "1984", "1985", "1986", "1987", 
"1989", "1991", "1992", "1993", "1994", "1995", "1997", "1998", 
"1999", "2000", "2001", "2002", "2003", "2004", "2005", "2006", 
"2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", 
"2015")), .Names = ""), class = "table") 

여러분의 도움에 감사드립니다 :

다음은 dput 정보입니다!

답변

3

당신은 아름다운 일

minyr <- min(names(yearcount2)); maxyr <- max(names(yearcount2)) 
barplot(setNames(yearcount2[as.character(minyr:maxyr)], minyr:maxyr), las=2) 
+0

음과 같이 할 수있는, 그 생각 적이있다. 고맙습니다! – nchimato