R Программирование - запретить «применять» от повторяющихся результатов в пределах диапазона данных

Question

У меня есть набор данных (в кадре данных). Я использую apply, чтобы добавить новый столбец в набор данных, в котором строки нового столбца выполняют функцию, используя элементы из других столбцов внутри этой строки. Примените работы, но после того, как она применила эту функцию к каждой строке, она выходит за пределы диапазона и просто продолжает применять значения снова и снова.

Вот данные я начинаю с:

Abbreviation Name X Y Z  A B C 
JM    Jim  3 4 5  6 7 8 
JS    Jess 5 6 7  8 9 10 

Используя следующую команду, я получаю следующие результаты: Команда:

df_new$Test <- apply(df_new,1, function(row) (df_new[,8]/df_new[,6])/(df_new[,5]/df_new[,3])) 

возвращаемые данные (из View (df_new))

Abbreviation Name X Y Z  A B C  Test 
JM    Jim  3 4 5  6 7 8  .8 
JS    Jess 5 6 7  8 9 10 .89 
                 .8 
                 .89 
                 .8 
                 .89 

Кроме того, когда я пишу эти данные в csv, используя приведенную ниже команду, я получаю Следующий вывод: Команда:

write.csv (df_new, файл = "Df_new.csv", row.names = FALSE)

Abbreviation Name X Y Z  A B C  Test Test.1 Test.2 Test.3 
JM    Jim  3 4 5  6 7 8  .8 .8  .8  .8 
JS    Jess 5 6 7  8 9 10 .89 .89  .89  .89 

В идеале, из сказанного выше, я просто хочу df_new [1: 2,1: 9]; однако даже попытка создать объект, который сохраняет только эту информацию, все равно приводит к дополнительным строкам (в представлении (df_new)) или дополнительным столбцам (при записи на .csv).

Answer 1

Обратите внимание, что вы предоставляете функцию apply, которая принимает параметр «строка», но вы никогда не используете его в функции. Я также не понимаю, почему вы должны использовать применять, как я думаю, что

df_new$Test <- (df_new[,8]/df_new[,6])/(df_new[,5]/df_new[,3]) 

должен дать вам то, что вы хотите

Answer 2

В этом случае вам не нужно использовать apply. Воспользуйтесь тем, что R является vectorised и просто сделать:

df_new$Test <- (df_new$C/df_new$A)/(df_new$Z/df_new$X) 
# Abbreviation Name X Y Z A B C  Test 
# 1   JM Jim 3 4 5 6 7 8 0.8000000 
# 2   JS Jess 5 6 7 8 9 10 0.8928571 

R будет рассматривать каждый столбец в сумме в качестве вектора и работать на них поэлементно. Он использует первый элемент из всех векторов, чтобы вернуть первое значение, затем второй элемент из всех векторов, чтобы вернуть второе значение, а затем нет никаких элементов в любых векторах, поэтому возвращает вектор из двух чисел.