dplyr을 사용하여 문자열 변수에서 열 선택

Question

문자열 변수에서 열을 선택하고 일부 계산을 수행하려고합니다.

iris을 분석 중이라고 가정하고 길이와 너비 사이의 모든 비율을 찾고 싶습니다.

# Manual mutation (ie: adding the column names explicitly in the mutate statement) 
iris %>% 
    mutate(Sepal.ratio = Sepal.Length/Sepal.Width, 
     Petal.ratio = Petal.Length/Petal.Width) 

# Output: 
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species Sepal.ratio Petal.ratio 
# 1   5.1   3.5   1.4   0.2 setosa 1.457143  7.00 
# 2   4.9   3.0   1.4   0.2 setosa 1.633333  7.00 
# 3   4.7   3.2   1.3   0.2 setosa 1.468750  6.50 
# 4   4.6   3.1   1.5   0.2 setosa 1.483871  7.50 
# 5   5.0   3.6   1.4   0.2 setosa 1.388889  7.00 
# 6   5.4   3.9   1.7   0.4 setosa 1.384615  4.25 

질문 : 열 이름을 지정하는 변수 또는 (아래 정의 된 ratioSets 같이) dataframe를 사용하는 방법은 없나요? 분자가 분모 전 (폭 전에 즉. 길이) 항상 있다고 가정

# Predefined or preprocessed column name set: 
ratioSets = rbind(c(value = 'Sepal.ratio', numerator = 'Sepal.Length', denominator = 'Sepal.Width'), 
       c(value = 'Petal.ratio', numerator = 'Petal.Length', denominator = 'Petal.Width')) 

# Automated mutation: 
iris %>% 
    mutate(
    # How can I use the ratioSets here? 
    # Something like : ratioSets$value = ratioSets$numerator/ratioSets$denominator 
) 


# Expected Output: 
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species Sepal.ratio Petal.ratio 
# 1   5.1   3.5   1.4   0.2 setosa 1.457143  7.00 
# 2   4.9   3.0   1.4   0.2 setosa 1.633333  7.00 
# 3   4.7   3.2   1.3   0.2 setosa 1.468750  6.50 
# 4   4.6   3.1   1.5   0.2 setosa 1.483871  7.50 
# 5   5.0   3.6   1.4   0.2 setosa 1.388889  7.00 
# 6   5.4   3.9   1.7   0.4 setosa 1.384615  4.25 

Answer 1

한 가지 방법

sapply(unique(sub('\\..*', '', names(iris[,-ncol(iris)]))), function(i) 
     Reduce('/', iris[,-ncol(iris)][,grepl(i, sub('\\..*', '', names(iris[,-ncol(iris)])))])) 

또는

head(cbind(iris, sapply(unique(sub('\\..*', '', names(iris[,-ncol(iris)]))), 
     function(i) Reduce('/', iris[,-ncol(iris)][,grepl(i, sub('\\..*', '', names(iris[,-ncol(iris)])))])))) 

# Sepal.Length Sepal.Width Petal.Length Petal.Width Species Sepal Petal 
#1   5.1   3.5   1.4   0.2 setosa 1.457143 7.00 
#2   4.9   3.0   1.4   0.2 setosa 1.633333 7.00 
#3   4.7   3.2   1.3   0.2 setosa 1.468750 6.50 
#4   4.6   3.1   1.5   0.2 setosa 1.483871 7.50 
#5   5.0   3.6   1.4   0.2 setosa 1.388889 7.00 
#6   5.4   3.9   1.7   0.4 setosa 1.384615 4.25