Изменить порядок данных и графика, используя R

Question

Я пытаюсь решить простую проблему, но не нашел решения.У меня data.frame заказано так

ID  Description value
Gut-1877    T4_2    574
Gut-1896    T5_2    576
Gut-1466    Donor   544
Gut-1734    T1_2    354
Gut-1720    T0_2    185
Gut-1741    T2_2    173
Gut-1748    T3_2    196
Gut-2431A   T7_2    421
Gut-2125    T6_2    352
Gut-1656    T1_1    258
Gut-1619    T0_1    77
Gut-1323    Relative    351

Я хочу поместить этот файл в другой порядок, и я попытался сделать это:

data %>% arrange(value) %>%
  mutate(name = factor(Description, levels=c( "Relative","Donor","T0_1","T1_1","T0_2","T1_2","T2_2","T3_2","T4_2","T5_2","T6_2","T7_2")))

Но тогда это не соблюдалосьмой заказ, как я получаю:

ID  Description value
Gut-1877    T4_2    574
Gut-1896    T5_2    576
Gut-1466    Donor   544
Gut-1734    T1_2    354
Gut-1720    T0_2    185
Gut-1741    T2_2    173
Gut-1748    T3_2    196
Gut-2431A   T7_2    421
Gut-2125    T6_2    352
Gut-1656    T1_1    258
Gut-1619    T0_1    77
Gut-1323    Relative    351

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

"Relative","Donor","T0_1","T1_1","T0_2","T1_2","T2_2","T3_2","T4_2","T5_2","T6_2","T7_2"

И как мне построить их значения в следующем порядке?Большое спасибо всем, кто поможет.

Answer 1

Ниже приведен ваш код, но с добавлением arrange для сортировки вашего фрейма данных по Description.

library(dplyr)
library(magrittr)

data <- read.table(text = "ID  Description value
Gut-1877    T4_2    574
           Gut-1896    T5_2    576
           Gut-1466    Donor   544
           Gut-1734    T1_2    354
           Gut-1720    T0_2    185
           Gut-1741    T2_2    173
           Gut-1748    T3_2    196
           Gut-2431A   T7_2    421
           Gut-2125    T6_2    352
           Gut-1656    T1_1    258
           Gut-1619    T0_1    77
           Gut-1323    Relative    351", header = TRUE)

data %<>% arrange(value) %>%
  mutate(Description = factor(Description, levels=c( "Relative","Donor","T0_1","T1_1","T0_2","T1_2","T2_2","T3_2","T4_2","T5_2","T6_2","T7_2"))) %>% 
  arrange(Description)
#>           ID Description value
#> 1   Gut-1323    Relative   351
#> 2   Gut-1466       Donor   544
#> 3   Gut-1619        T0_1    77
#> 4   Gut-1656        T1_1   258
#> 5   Gut-1720        T0_2   185
#> 6   Gut-1734        T1_2   354
#> 7   Gut-1741        T2_2   173
#> 8   Gut-1748        T3_2   196
#> 9   Gut-1877        T4_2   574
#> 10  Gut-1896        T5_2   576
#> 11  Gut-2125        T6_2   352
#> 12 Gut-2431A        T7_2   421

^{Создано в 2019-03-20 пакетом Представления (v0.2.1)}

Вы можете затем построить данные, например, так:

ggplot(data, aes(x = Description, y = value)) + geom_bar(stat = "identity")