summary(x)
R 의 함수에 의해 생성 된 일반적인 설명 통계보다 더 많은 것을 표시하는 요약 테이블을 얻고 싶습니다 . 예를 들어 10 % 백분위 수, 90 % 백분위 수. 온라인에서 찾은 다른 답변은 답변을 제공하는 방법을 권장하지만 표 형식이 아닙니다.
summary (x) 함수에 의해 생성 된 요약 테이블에 지정된 백분위 수 수준을 추가하는 방법을 찾고있었습니다.
다음은 예시 데이터입니다.
df = data.frame("a"=seq(1,10), "b"=seq(10,100,10),
"c"=letters[seq(1,10)], "d"=seq(5,95,10))
# generate data
df = data.frame("a"=seq(1,10), "b"=seq(10,100,10), "c"=letters[seq(1,10)], "d"=seq(5,95,10))
# filter numerical columns
ndf = Filter(is.numeric,df)
features = colnames(ndf)
# percentiles reqd
p_reqd = c(0,0.10,0.25,0.5,0.75,0.90,0.95,1) # more percentile levels can be specified here
# after adding/removing, adjust p_lev as well
# labels for specified percentiles + mean
p_lev = c('Min','10%','25%','50%','Mean','75%','90%','95%','Max')
# created empty dataframe with row names specified
final = data.frame(row.names = p_lev)
# loop
for (i in features) {
x = ndf[,i]
sm = data.frame("dStats" = quantile(x, p_reqd))
final[1:which(rownames(final)=="50%"),i] = sm$dStats[1:which(rownames(sm)=="50%")]
final[which(rownames(final)=="50%")+1,i] = round(mean(x),2)
final[(which(rownames(final)=="50%")+2):nrow(final), i] =
sm$dStats[(which(rownames(sm)=="50%")+1):nrow(sm)]
}
# custom summary table
final
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다