변경에 의해 정의 된 I 플롯 기능이

Question

플롯에서 "Y"라벨 : 내 명성을 허용하지만 아니에요 때문에

> graphic <- function(x,K=5) 
{ 
    p <- length(x) # items 
    n <- nrow(x) # observations 
    r <- 6 # values 
    myf <- function(y) # extract frequencies, no missings 
    { 
    y <- y[!is.na(y)] 
    y <- as.factor(y) 
    aux <- summary(y) 
    res <- rep(0, r) 
    res[1:r %in% names(aux)] <- aux 
    100 * res/sum(res) 
    } 
> 
> 
> freqs <- apply(x, 2, FUN = myf) # aplica la funció myf per columnes 
> df2 <- expand.grid(vals = 1:r, item = 1:p) # crea totes les 
> combinacions possibles df2$freq <- as.numeric(freqs) # afegeix les 
> freqüències # gràfic a <- paste("Items 1 to",ncol(x)) titol 
> <- paste("Frequency plot for", as.character(substitute(x))) 
>  plot(df2$item,df2$vals,type="n",xlim=c(1,p),ylim=c(1,r),xaxt = "n", 
>  xlab=bquote(.(a)), ylab="Item values (1 to 6)", ann=FALSE) 
> 
> 
> 
> axis(1, at = 1:length(x) ,labels=names(x), las=2, cex.axis=0.8) 
> title(bquote(.(titol)), 
>   sub = "For each item, square sizes are proportional to frequences ", 
>   cex.main = 1,font.main= 2, col.main= "black", 
>   cex.sub = 1, font.sub = 1, col.sub = "black") 
>  points(df2$item,df2$vals,pch=22,col="black", bg="gray", cex=(df2$freq/n)*K) } 

나는 이미지를 업로드 할 수 없습니다 : https://www.dropbox.com/s/g1h77z3ob0zf2jj/Rplot.png?dl=0 (내가 MOT의 명성을 얻을 때 파일을 업로드 할게요) 그 6이 다른 값을 취하기를 원합니다, 예를 들어 "TT", 그러나 나는 그것을하는 법을 찾을 수 없습니다. 어떤 생각?

미리 감사드립니다.

Answer 1

this external link, 페이지 하단의 축 부분을 살펴볼 수 있습니다.

1) 옵션을 yaxt 당신의 y 축 삭제 = "N"함수 plot(x, y, yaxt="n")에 :

당신은 할 필요가있다.

2) axis(side, at=, labels=, pos=, lty=, col=, las=, tck=, ...)으로 맞춤 y 축을 추가하고 원하는 경우 정확하게 labels = c("1", "2", "3",..., "TT") 옵션을 추가하십시오. 아래

코드는 당신을 위해 일해야합니다 당신의 도움에 대한

## your x-axis is already deleted, so you do the same for y-axis, adding yaxt="n" 
plot(df2$item,df2$vals,type="n",xlim=c(1,p),ylim=c(1,r),xaxt = "n", yaxt="n", 
     xlab=bquote(.(a)), ylab="Item values (1 to 6)", ann=FALSE) 
## x-axis already created 
axis(1, at = 1:length(x) ,labels=names(x), las=2, cex.axis=0.8) 
## y-axis creation 
axis(2, at = x, labels=c("1","2","3","4","5","TT"), las=2)