作者tus (new life)
看板R_Language
标题[问题] Pipe 使用问题
时间Fri Jan 5 11:20:22 2018
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
主要目的是重新排列一个factor level的顺序
我的问题是 如何能用pipe的表示方法来做到
[程式范例]:
library(dplyr)
library(gtools)
rm(list = ls())
a <- data.frame(matrix(c("b_1","b_2","b_3","b_10","b_2",1,2,3,4,5), nrow = 5))
a$X1 <- as.character(a$X1)
levels(as.factor(a$X1)) # "b_1" "b_10" "b_2" "b_3"
# 假设 a 是我们的资料 因为原始资料的型态是 chr 所以我把 a$X1 转成chr
# 这样的level排序是 b_1, b_10, b_2, ...
# 但我想要的是 b_1, b_2, b_3, b_10
b <- a
b$X1 <- factor(b$X1, levels = mixedsort(unique(b$X1)))
levels(b$X1) # "b_1" "b_2", "b_3", "b_10"
# 所以我用了以上程式来改变level的顺序
# 可是当我写了一个reorder level的function 想使用pipe时 却一直出现问题
reorder_level <- function(df, col_name){
df[col_name] <- factor(df[col_name], levels = mixedsort(unique(df[col_name])))
df
}
c <- a %>% reorder_level(X1)
# Error message 是
# Error in [.data.frame (df, col_name) : object 'X1' not found]
Thanks!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 162.237.102.128
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1515122429.A.2A3.html
※ 编辑: tus (162.237.102.128), 01/05/2018 11:25:53