2016-06-15 13 views
2

나는 매년 x 축을 1998 년에서 2014 년까지 가지고 있습니다. 아래 그림에서 볼 수 있듯이, 매년 앞에서 'X'모든 x 축 레이블 (년) 앞의 이상한 'X'... 제거하는 방법?

enter image description here 2

어떻게이 문제를 제거 할 수있다?

나는 모든 바 아래에 매년 수직으로 작성되기를 원합니다. 그리고이 코드 작성

보이는 빨간색과 녹색 부분에있는 모든 줄의 값 ... :

d=read.delim("LW_Einkommen.csv", sep=";", dec=".", header=TRUE, row.names=1) 
str(d) 

da=data.matrix(d, rownames.force = NA) 
da 

barplot(da, 
     main="ø Einkommen CH Landwirtschaftsbetriebe 1998-2014", 
     xlab="Jahr", 
     ylab="Einkommen pro Betrieb [CHF]", 
     ylim=c(0, 100000), 
     col=c("red","green"), 
     cex.axis = 0.9, cex.lab = 0.9) 

grid(col="black") 

legend("bottomleft", 
     c("Landwirtschaftliches Einkommen","Ausserlandwirtschaftliches Einkommen"), 
     fill=c("red","green")) 
+0

가 많은 도움이 될 것입니다. –

+2

레이블은 데이터 집합의 열 이름에서 왔습니다. 숫자 열 이름에는 자동으로 X가 추가됩니다. 'barplot'에'names.arg' 인수를 사용하여 이름을 설정하십시오. –

+0

'las' 인수를'par'로 검사하여 레이블을 수직으로 만듭니다. –

답변

0

나를 위해 3 매우 중요 imputs 당신에게 R. 텔 포드 감사를! 이걸로, 여기에 더 많은 스레드와 하루 종일, 난 거의 다 끝났어.

다른 가능성은 read.delim 라인 check.name=F에 추가된다

d=read.delim("LW_Einkommen.csv", sep=";", dec=".", header=TRUE, row.names=F) 

그냥 하나 개의 작은 실수 (I 라벨 부분의 볼트를 표시)의 블록 라벨의 잘못된 순서로 이어지는, 내 스크립트 내 wrong block-labeling

Acutal 순서가 모두 빨간색 블록을 통해 98red 시작하고 녹색 블록보다 점프 ... 을하지만 다른 후 적색에서 녹색으로 한 줄을해야한다 : 아래 그림에서 볼 수 있듯이, barplot 쌓아 ...

01 23,516,
d=read.delim("LW_Einkommen.csv", sep=";", dec=".", header=TRUE, row.names=1) 
str(d) 

da=data.matrix(d, rownames.force = NA) 
da 

bp=barplot(da, 
     main="ø Einkommen CH Landwirtschaftsbetriebe 1998-2014", 
     xlab="Jahr", 
     ylab="Einkommen pro Betrieb [CHF]", 
     ylim=c(0, 100000), 
     las=3, 
     col=c("red","green"), 
     cex.axis = 0.9, cex.lab = 1, cex.names=0.9, 
     names.arg = expression("1998","1999","2000","2001","2002","2003","2004","2005","2006", 
           "2007","2008","2009","2010","2011","2012","2013","2014")) 

**# Find the top y position of each block 
ypos <- apply(da, 2, cumsum) 
# Move it downwards half the size of each block 
ypos <- ypos - da/2 
ypos <- t(ypos) 
text(bp, ypos, da, cex=0.7)** 

grid() 

legend("topleft", 
     c("Landwirtschaftliches Einkommen","Ausserlandwirtschaftliches Einkommen"), 
     fill=c("red","green"),cex=0.9) 

여기에서했다 라벨링을위한 템플릿 : 당신은 당신의 데이터 세트의 처음 몇 줄을 제공하는 경우 https://stackoverflow.com/a/3627269/6467646