添加列，該列包含整數(shù)列的綁定值。我有一個包含幾個列的dataframe，其中一個列是秩，一個介于1到20之間的整數(shù)。我想創(chuàng)建另一個列，它包含一個bin值，比如“1-4”、“5-10”、“11-15”、“16-20”。做這件事最有效的方法是什么？我擁有的數(shù)據(jù)框架如下(.csv格式)：rank,name,info1,steve,red3,joe,blue6,john,green3,liz,yellow15,jon,pink我想在dataframe中添加另一列，所以如下所示：rank,name,info,binValue1,steve,red,"1-4"3,joe,blue,"1-4"6,john,green, "5-10"3,liz,yellow,"1-4"15,jon,pink,"11-15"我現(xiàn)在這樣做是不起作用的，因為我想保持data.framework不變，如果df$放的值在給定的范圍內(nèi)，只需添加另一列即可。謝謝。
3 回答
翻閱古今
TA貢獻1780條經(jīng)驗 獲得超5個贊
看見?cut并指定breaks(也許labels).
x$bins <- cut(x$rank, breaks=c(0,4,10,15), labels=c("1-4","5-10","10-15"))
x
# rank name info bins
# 1 1 steve red 1-4
# 2 3 joe blue 1-4
# 3 6 john green 5-10
# 4 3 liz yellow 1-4
# 5 15 jon pink 10-15
天涯盡頭無女友
TA貢獻1831條經(jīng)驗 獲得超9個贊
dat <- "rank,name,info
1,steve,red
3,joe,blue
6,john,green
3,liz,yellow
15,jon,pink"
x <- read.table(textConnection(dat), header=TRUE, sep=",", stringsAsFactors=FALSE)
x$bins <- cut(x$rank, breaks=seq(0, 20, 5), labels=c("1-5", "6-10", "11-15", "16-20"))
x
rank name info bins
1 1 steve red 1-5
2 3 joe blue 1-5
3 6 john green 6-10
4 3 liz yellow 1-5
5 15 jon pink 11-15
達令說
TA貢獻1821條經(jīng)驗 獲得超6個贊
我們可以用smart_cut從包裝cutr :
# devtools::install_github("moodymudskipper/cutr")
library(cutr)
使用@Andrie的樣本數(shù)據(jù)：
x$bins <- smart_cut(x$rank,
c(1,5,11,16),
labels = ~paste0(.y[1],'-',.y[2]-1),
simplify = FALSE)
# rank name info bins
# 1 1 steve red 1-4
# 2 3 joe blue 1-4
# 3 6 john green 5-10
# 4 3 liz yellow 1-4
# 5 15 jon pink 11-15
- 3 回答
- 0 關(guān)注
- 501 瀏覽
添加回答
舉報
0/150
提交
取消