DF에서 루프를 사용하여 변수를 단순 바코드로 변환

Question

모든 작성 루프에서 많은 경험이 없으므로 새로운 모든 데이터 세트에서 자주 수행하는 작업을 자동화하려고합니다. 각 변수의 상자 플롯 및 막대 그래프 작성 잘 설명 통계를 계산하십시오. 후자의 경우 설명 (Hmisc) 및/또는 통계 (fileds)를 사용하는 경향이 있습니다.

이상적으로는 루프가 각 적절한 변수에 대해 하나의 boxplot을 생성하도록하고 싶습니다. 내 루프는 아래에 하나의 상자 그림을 생산하고 오류 반환 : 최상위 내가 잘못 얻고 무엇

점프에서 반환하는 기능 없음 :

오류? 또한 누군가가 내 부족한 루프 쓰기 방법을 정리할 수있는 참조/웹 사이트로 나를 안내 할 수 있다면 도움이 필요합니다.

감사합니다. 크리스

당신은 루프에서 "반환"을 사용할 수 없습니다

y <- LETTERS[as.integer(rnorm(100, mean=5, sd=1))] 
z <- LETTERS[as.integer(rnorm(100, mean=10, sd=1))] 
x <- round(rnorm(100, mean=5, sd=2.5),2) 
data <- as.data.frame(cbind(x,y,z)) 


A<- do.call("cbind", lapply(data, class)) 
B<- as.vector(A[1,]) 
C <- grep("character|factor", B) 

for (i in 1:length(C)) { 
    x <- C[i] 
    counti <- table(data[,x]) 
    y <- barplot(counti, main=paste("Barplot for var", x)) 
    return(y)} 

Answer 1

, 그것은 기능에 사용됩니다. 또한 당신은 플롯 사이에 일시 정지를하게 할 수 있습니다 :

par(ask=T) 
for (i in 1:length(C)) { 
    x <- C[i] 
    counti <- table(data[,x]) 
    y <- barplot(counti, main=paste("Barplot for var", x)) 
    y 
} 

Answer 2

내가 lapply 뭔가가 더 좋은 것 같아요 : 당신은 잊다해야

C <- grep("character|factor", B) 

FUN <- function(vec, num){ 
    if (dev.interactive()) dev.new() 
    counti <- table(vec) 
    y <- barplot(counti, main=paste("Barplot for var", num)) 
    return(y) 
} 

lapply(C, function(i) FUN(data[, i], i)) 

Answer 3

가장 먼저하는 일이 as.data.frame(cbind()) 실수입니다. 모든 열을 동일한 클래스로 강제 설정하므로 데이터 프레임 구조의 이점을 모두 상실합니다.

sapply(data, class) 
     x  y  z 
"factor" "factor" "factor" 

은 또한 마찬가지로 위의 A<- sapply(data, class)를 사용하여 벡터 대신 cbind을 통해 그 고문 패스를하는 것이 더 간단 할 것입니다. 그리고 다른 사람들은 return이 for-loop 내부가 아닌 일반 함수에 대해 작동한다고 언급했기 때문에. for-loop를 사용하여 수행하려는 경우 barplot 호출 결과를 수집 할 구조가 있어야하며 목록이 모두 동일한 길이가 될지 확신 할 수 없어 자연스러운 목록입니다. 대체 경로 일 수 있습니다 :

y <- LETTERS[as.integer(rnorm(100, mean=5, sd=1))] 
z <- LETTERS[as.integer(rnorm(100, mean=10, sd=1))] 
x <- round(rnorm(100, mean=5, sd=2.5),2) 
data <- data.frame(x=x,y=y,z=z) 
CC <- grep("character|factor", sapply(data, class)) 
y <- list() 
for (i in seq_along(CC)) { 
    x <- CC[i] 
    counti <- table(data[,x]) 
    y <- c(y, list(barplot(counti, main=paste("Barplot for var", x)))) 
    } 
y 
#------------  
[[1]] 
    [,1] 
[1,] 0.7 
[2,] 1.9 
[3,] 3.1 
[4,] 4.3 
[5,] 5.5 
[6,] 6.7 

[[2]] 
    [,1] 
[1,] 0.7 
[2,] 1.9 
[3,] 3.1 
[4,] 4.3 
[5,] 5.5 
[6,] 6.7