Выбор имен в CrossTable

Question

У меня есть Crosstable, в котором есть вектор отсчетов с согласованными факторами, как показано ниже.

Я бы хотел построить график факторов "0-7" "11-13.5" "13.5+ "" 7-9 "... со счетом, но в определенном порядке, например сначала 0-7, затем 7-9, 11-13,5 и т. Д. *

Как это можно сделать вбыстрый способ?

> str(data2)
List of 4
 $ t       : int [1, 1:6] 3342 6954 6002 5150 4868 2776
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:6] "0-7" "11-13.5" "13.5+" "7-9" ...

Answer 1

Подумайте об использовании Recoding addins из пакета questionr.

Вы можете изменить маркировку с помощью функции level:

## Reordering df1$bands
df1$bands <- factor(df1$bands, levels=c("0-7", "7-9", "11-13.5", "13.5+"))

Создание меток:

df1 <- df %>% mutate(bands = case_when(value <= 7 ~ "0-7",
                                value <= 9 ~ "7-9",
                                value <= 13.5 ~ "11-13.5",
                                value > 13.5 ~ "13.5+" )) 

Вот отсортированные данные:

df1 %>% count(bands)

# A tibble: 4 x 2
  bands       n
  <fct>   <int>
1 0-7         7
2 7-9         2
3 11-13.5     5
4 13.5+       7

Пример данных:

df <- tibble::tribble(
  ~t, ~value,
   1,    0.5,
   3,    1.5,
   5,    2.5,
   7,    3.5,
   9,    4.5,
  11,    5.5,
  13,    6.5,
  15,    7.5,
  17,    8.5,
  19,    9.5,
  21,   10.5,
  23,   11.5,
  25,   12.5,
  27,   13.5,
  29,   14.5,
  31,   15.5,
  33,   16.5,
  35,   17.5,
  37,   18.5,
  39,   19.5,
  41,   20.5
  )