Несколько записей с одинаковым идентификатором пациента: как сделать это одной записью

Question

У меня есть несколько записей в моих данных с одного и того же идентификатора пациента, я хотел сделать это как одну запись.Каковы мои возможные варианты?Вот данные -

PtID    WorryHighBGNow
40  5
40  1
40  2
70  3
101 4
263 2
263 5
263 3
143 4
245 4
137 3
219 2
219 3
219 4
3   3
264 3
264 3
98  1
200 3
105 3
111 4
149 3

Я хочу создать визуализацию из этих данных, как показано ниже, где по оси Y я хочу видеть столбцы моей таблицы, а по XI хочу se ранжирования 1,2,3,4,5

Answer 1

Не совсем уверен, что это то, что вам нужно.Я только что попытался имитировать визуализацию, которую вы связали с вопросом , как можно ближе.

library(tidyverse)

dat %>%
  mutate_all(factor) %>%
  count(WorryHighBGNow, ) %>%
  mutate(percentage = round(n / sum(n) * 100, 1)) %>%
  mutate(WorryHighBGNow =  reorder(WorryHighBGNow, n)) %>%
  ggplot(aes(x    = WorryHighBGNow, y     = percentage, 
             fill = WorryHighBGNow, label = paste(percentage, '%'))) +
  geom_col() +
  geom_text(hjust = -.1, fontface = 'bold') +
  scale_fill_brewer(type = 'qual', breaks = 1:5) +
  coord_flip() +
  expand_limits(y = 50) +
  theme_void() +
  theme(legend.position = 'bottom')

Данные :

dat <- structure(
  list(
    PtID = c(40L, 40L, 40L, 70L, 101L, 263L, 263L, 263L, 143L, 245L, 137L, 219L, 
             219L, 219L, 3L, 264L, 264L, 98L, 200L, 105L, 111L, 149L), 
    WorryHighBGNow = c(5L, 1L, 2L, 3L, 4L, 2L, 5L, 3L, 4L, 4L, 3L, 2L, 3L, 4L, 
                       3L, 3L, 3L, 1L, 3L, 3L, 4L, 3L)
    ), 
  class = "data.frame", row.names = c(NA, -22L)
  )

Answer 2

Если x - ваш фрейм данных, вы можете попробовать это

                      d <- setDT(x)[, list(WorryHighBGNow = paste(WorryHighBGNow, collapse = ', ')),by = c('PtID')] 

Это даст результат как

                     PtID   WorryHighBGNow
                     40     5,1,2
                     70     3
                     101    4
                     263    2,5,3

И т. Д.