Лучший способ заполнить эти пробелы

используя данные из http://statland.org/AP/R/heartatk4R.txt

Я прочитал данные следующим образом:

heartatk4R <- read.csv(file = "C:\\Users\\"heartatk4R.txt",         
            header = TRUE, sep = "\t",          
            colClasses = c("character", "factor", "factor", "factor", 
                           "factor", "numeric", "numeric", "numeric"))
head(heartatk4R)

Я хочу рассчитать среднюю стоимость в день для пациентов с разными кодами ДИАГНОСТИКИ. Ограничить женщинами в возрасте старше 20 и моложе 70 лет, которые остались хотя бы на один день. Отсортируйте результаты в порядке убывания.

В этом не работает на основе моих вопросов: любая помощь

library(dplyr)
df <- heartatk4R%>%
filter (SEX= = "F"& AGE >20 & AGE < 70 & DRG >== )%>%
  group_by(heartatk4R)%>%
  arrange (CostPerDay = CHARGES)%>%
  summarise(AvgCostPERDAY = (CostPerDay, na.rm = _))%>%
  (-AvgCostPerDay)
df

Спасибо

24.07.2019 06:33

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответы 2

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

Вы можете Рассчитать среднюю стоимость в день с aggregate например:

heartatk4R <- read.table("http://statland.org/AP/R/heartatk4R.txt", header = TRUE, sep = "\t", colClasses = c("character", "factor", "factor", "factor","factor", "numeric", "numeric", "numeric"), na.strings = "*")

tt <- with(heartatk4R[heartatk4R$SEX= = "F" & heartatk4R$AGE>20 & heartatk4R$AGE<70,],
 aggregate(data.frame(CostPerDay = CHARGES), data.frame(DIAGNOSIS), FUN=mean, na.rm=TRUE))
tt[order(-tt[,2]),]
#  DIAGNOSIS CostPerDay
#1     41001  11911.179
#3     41021  11165.837
#2     41011  10922.091
#5     41041  10366.557
#4     41031  10101.536
#8     41081   9641.175
#7     41071   9558.745
#9     41091   9528.740
#6     41051   9393.048

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

24.07.2019 07:42

Используя dplyr, мы могли бы filter значения, group_byDIAGNOSIS и взять mean из CHARGES

heartatk4R <- read.csv(url("http://statland.org/AP/R/heartatk4R.txt"), sep = "\t")

library(dplyr)

heartatk4R %>%
   filter(SEX == "F" & AGE > 20 & AGE < 70) %>%
   mutate(CHARGES = as.numeric(as.character(CHARGES))) %>%
   group_by(DIAGNOSIS) %>%
   summarise(AvgCostPERDAY  = mean(CHARGES, na.rm = TRUE)) %>%
   arrange(desc(AvgCostPERDAY))

# DIAGNOSIS AvgCostPERDAY
#      <int>         <dbl>
#1     41001        11911.
#2     41021        11166.
#3     41011        10922.
#4     41041        10367.
#5     41031        10102.
#6     41081         9641.
#7     41071         9559.
#8     41091         9529.
#9     41051         9393.

24.07.2019 07:52

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

Расширение временных рядов в R

Объединение определенных строк в столбцы

Парсинг таблицы с интерактивных веб-сайтов с помощью rvest

Эффективный способ создать таблицу ответов да/нет

Есть ли функция R, которая может соответствовать, если False, затем замените ее на NA, а если true, перейдите по списку и выберите первое число и т. д

Ggplot stat_ecdf() с реактивным выражением Shiny

Почему код выдает ошибку при зацикливании? Мой код работает, когда я увеличиваю индекс «вручную», но когда я ввожу цикл, он терпит неудачу

Могу ли я создать диаграммы рассеяния с «парными кругами» в R, используя ggplot2

Делаем анимацию распределения Бернулли с помощью gganimate и получаем неожиданный скачок при p = 0,5

Как отфильтровать один список по тому, содержит ли он строку из другого

Лучший способ заполнить эти пробелы

Ответы 2

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

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