[R분석] 플롯에서 X축변경 예제 reassign x axis value in R plot # 기본형태의 플롯은 X축에 1에서 부터 순번으로 X축 값을 표시 # 특별한 의미를 가진 값들일 경우 X축에 다른 값을 부여해야할 필요도 있을 것 # 이 경우 먼저 X축의 값을 xaxt 옵션을 사용하여 삭제한 후 # axis 함수를 사용하여 X축 값에..

연관성규칙생성(Association Rule Discovery)은 데이터 분석과 데이터 마이닝에서 빠질 수 없는 매우 잘 알려진 알고리즘이다. 대표적인 무감독학습 방식의 분석 방법으로 소위 장바구니분석이라는 이름으로도 널리 알려져 있다. 맥주를 사면 기저귀를 산다는 식의 확률적인 규칙을 찾아내는 방..

# 도로명주소에서 동이름 추출 str <- "세종로길 2 2층 (신영동)" # 이 대신 데이터프레임으로 바꾸고 # 루프 돌리면 됨!! ^^ x <- strsplit(str, " " ) b1 <- as.data.frame(x[1][1]) c <- subset(b1, substr(b1[,1], 1,1) == "(" )

#--------- ##====[ANN :: MTCARS Example with Standardization and Log Transformation ] ========= #install.packages("neuralnet") require(neuralnet) require(ggplot2) # Scale standardization and Log transformation trainingdata <- mtcars devider1 <- max(log(trainingdata$mpg)) trainingdata$mpg <- log(trainingdata$mpg)/devider1 trainingdata$wt <- trainingdata$wt/max(train..

#-----[ unsupervised proximity in rf ] -------- data(mtcars)crf1 <- randomForest(mpg ~ ., data=mtcars, importance=TRUE, proximity=TRUE)m1 <- melt(crf1$proximity)plot(sort(m1$value)) #--- make a graph using RF proximity -------- # install.packages("d3Network")require(d3Network) m2 <- m1[m1$value>quantile(m2$value,0.7) & m1$value<1,]NetworkData <- data.frame(m2..

# YONG's own color chart coldf <- data.frame(colnum = c(12, 23, 30, 36, 40, 41, 51, 56, 67, 71, 72, 73, 74, 79, 93, 100)) coldf$colname <- colors()[coldf$colnum] colrgbdf<- as.data.frame(t(col2rgb(coldf$colname))) coldf <- cbind(coldf, colrgbdf) # par_back <- par() # to make enough space to show color names par(mar=c(7,4,3,2)) plot(coldf$colnum, pch=15, col=rgb(..