Как заставить scale_fill_manual использовать десятичные значения? - PullRequest
Новая
       38

Как заставить scale_fill_manual использовать десятичные значения?

0 голосов
/ 08 июля 2019

В настоящее время пытаются использовать cut () и scale_fill_manual для заполнения древовидной карты.После устранения неполадок я не уверен, почему мой вывод ведет себя так, как он есть.Насколько я могу судить, scale_fill_manual () отвечает только на целые числа, а не на десятичные.Есть мысли о преодолении этой проблемы?Я хотел бы, чтобы мой вывод был похож на первый блок кода.

ggplot(tree_values,aes(area = fidelity_prop,
                                               label = routine_type,
                                               fill = cut(current_score,c(-Inf, .75,.89, Inf))),
                               stat = "identity")+
                               geom_treemap()+
                               geom_treemap_text(fontface = "italic", colour = "white", place = "centre",
                                                grow = F, reflow = T)+
                               scale_fill_manual(name = "Fidelity Condition",
                                                 values = c("(-Inf,.75]" = "red",
                                                            "(.75,.89]" = "yellow",
                                                            "(.89,Inf]" = "green"),
                                                 labels = c("Not Adequate",
                                                            "Needs Improvement",
                                                            "Adequate"))

Этот код обеспечивает вывод: .

Если я изменю код на этот формат: 

ggplot(tree_values,aes(area = fidelity_prop,
                                                   label = routine_type,
                                                   fill = cut(current_score,c(-Inf, 75,89, Inf))),
                                   stat = "identity")+
                                   geom_treemap()+
                                   geom_treemap_text(fontface = "italic", colour = "white", place = "centre",
                                                    grow = F, reflow = T)+
                                   scale_fill_manual(name = "Fidelity Condition",
                                                     values = c("(-Inf,75]" = "red",
                                                                "(75,89]" = "yellow",
                                                                "(89,Inf]" = "green"),
                                                     labels = c("Not Adequate",
                                                                "Needs Improvement",
                                                                "Adequate"))

Этот кодБлок отображает следующее: enter image description here

РЕДАКТИРОВАТЬ: dput () вывод: 

structure(list(routine_type = c("Behavior Management", "Daily Language/Opening Routines", 
"Positive Climate", "Productivity", "Schedule Allows Adequate ELA Instruction", 
"Schedule Components Match Journeys TE and Time Guidelines", 
"Skills and Strategies", "Small Group Time Doesn't Compromise Whole Group", 
"Small Group/Independent Studies", "Word Work"), fidelity_summary = c(8.65, 
15.8, 7.9, 9.65, 0.9, 0.8, 21.6, 0.8, 8.35, 21.95), fidelity_prop = c(0.0670542635658915, 
0.122480620155039, 0.0612403100775194, 0.0748062015503876, 0.00697674418604651, 
0.0062015503875969, 0.167441860465116, 0.0062015503875969, 0.0647286821705426, 
0.17015503875969), high_score = c(0.09302326, 0.1627907, 0.09302326, 
0.09302326, 0.007751938, 0.007751938, 0.2325581, 0.007751938, 
0.09302326, 0.2093023), current_score = c(0.720833300895835, 
0.752380941632653, 0.658333303708335, 0.804166630479168, 0.8999999982, 
0.7999999984, 0.720000122400021, 0.7999999984, 0.695833302020835, 
0.812963062325115)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-10L))

1 Ответ

0 голосов
/ 08 июля 2019

Проработав еще немного. @Camille показал, что мои значения не были отформатированы так же, как их создает cut. Следующий код работает для моего варианта использования. 

 ggplot(tree_values,aes(area = fidelity_prop,
                                               label = routine_type,
                                               fill = cut(current_score,c(-Inf, 0.75,0.9, Inf))),
                               stat = "identity")+
                               geom_treemap()+
                               geom_treemap_text(fontface = "italic", colour = "white", place = "centre",
                                                grow = F, reflow = T)+
                               scale_fill_manual(name = "Fidelity Condition",
                                                 values = c("(-Inf,0.75]" = "red",
                                                            "(0.75,0.9]" = "yellow",
                                                            "(0.90,Inf]" = "green"),
                                                 labels = c("Not Adequate",
                                                            "Needs Improvement",
                                                            "Adequate"))

enter image description here

...