Как преобразовать каждую строку во фрейме данных с помощью произвольной функции?

У меня есть фрейм данных, в котором каждая строка содержит значения для определенного возраста (0, 6, 15, 24, 36 месяцев). Я могу интерполировать значения для одной строки на другие возрасты, используя approx. Как я могу применить это ко всем строкам? Я пробовал разные вещи с rowwise(), но они не работают.

library(tidyverse)
library(stats)

care_distribution_table = "Age,M0,M6,M15,M24,M36
Mother,100.00%,36.89%,29.58%,29.61%,26.64%
Father,0.00%,11.74%,14.70%,12.23%,11.40%
Other relative,0.00%,15.80%,14.00%,11.55%,10.20%
In-home nonrelative,0.00%,7.94%,8.89%,7.33%,6.48%
Home-based childcare,0.00%,18.62%,20.69%,21.82%,17.38%
Center childcare,0.00%,9.00%,12.15%,17.46%,27.90%"

care_dist = read.csv(text = care_distribution_table, row.names = 1) |>
  # Convert from % to float
  mutate(across(everything(), ~as.numeric(trimws(.x, whitespace = '%'))) / 100) |>
  # Make sure columns add to 1 (i.e. handle rounding error)
  mutate(across(everything(), ~.x/sum(.x))) 

# This interpolates one row
approx(x = c(0,6,15,24,36), y = care_dist['Mother',], xout = 0:36)


# This gets me most of the way
care_dist |> rowwise() |> group_map(~approx(x = c(0,6,15,24,36), y = .x, xout = 0:36)$y) 

# This fails
care_dist |> rowwise() |> group_modify(~df(z = approx(x = c(0,6,15,24,36), y = .x, xout = 0:36)$y))

care_dist |> rowwise() |> reframe(approx = approx(x = c(0,6,15,24,36), y = c(M0,M6,M15,M24,M36), xout = 0:36)$y) получает нужный столбец, но не включает исходные значения...

— 18.08.2024 20:57

Хотите ли вы получить результат в широком или длинном формате?

— 18.08.2024 21:10

@BenBolker широкий

— 18.08.2024 21:11

r dplyr rowwise

18.08.2024 20:26

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

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

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Ответ принят как подходящий

если CC — это результат вашего вызова group_map(), то

bind_cols(care_dist, do.call(rbind, CC))

предоставит вам широкоформатный тиббл, включающий все приблизительные значения (с именами ...6, ...7, ... может быть, вы хотите написать функцию-оболочку, которая дает эти лучшие имена?)

(Я не уверен, зачем мне понадобился do.call(rbind, ...) вместо bind_rows().)

18.08.2024 21:19

1) Предполагая, что желаемый результат представляет собой фрейм данных размером 6 x 37 с исходными именами строк и именами столбцов M*.

library(dplyr)
library(tibble)

care_dist %>%
  rownames_to_column %>%
  reframe(
    approx(x = c(0,6,15,24,36), y = unlist(pick(everything())), xout = 0:36)$y %>%
      as.data.frame.list(col.names = paste0("M", 0:36)), .by = rowname
  ) %>%
  column_to_rownames

2) Базовое решение R:

care_dist |>
  apply(1, \(y) approx(x = c(0,6,15,24,36), y = y, xout = 0:36)$y) |>
  t() |>
  as.data.frame() |>
  setNames(paste0("M", 0:36))

18.08.2024 21:46

Другие вопросы по теме

Разница в выводе между индексированием одинарных и двойных скобок в R case_when()

Есть ли более компактный способ написания цепочек вызовов мутаций по конвейеру?

R: фильтрация dplyr внутри функции с входным значением NULL

Как использовать replace_na() с аргументами функции defuse в R

Проблема с фильтром() при вводе файла .csv в Shiny R

Как добавить фильтр даты на график?

Как сделать равномерную выборку из базы данных, имеющей только одного представителя на группу?

Как получить значение из одного набора данных, чтобы заполнить недостающие значения в другом наборе данных

Переименование кадра данных с помощью строковой переменной

Замена строковых значений на dplyr

Как преобразовать каждую строку во фрейме данных с помощью произвольной функции?

Ответы 2

Другие вопросы по теме

Похожие вопросы