Каков наилучший способ инвертировать порядок надписей легенды, так что 7 не работает, а 1 наверху?
df$day <- as.numeric(df3$day)
blues <- colorRampPalette(c('#132B43', '#56B1F7'))
p4 <-
ggplot(subset(df,feedback==1&stp>20), aes(x=correct, fill=day, colour=day)) +
geom_histogram(colour="black", binwidth=10) +
facet_grid(day ~ .) +
ggtitle("Over-pronation histogram") +
ylab("Count (150s period)") +
xlab("% Steps in over-pronation") +guide_legend(reverse = false)
Ваш код довольно странный, false вместо false и некорректно помещенный guide_legend. Правильное использование (@Harpal дает нам подсказку):
ggplot(data.frame(x=1:4, y=4:1, col=factor(1:4)), aes(x=x, y=y, col=col)) +
geom_point(size=10)
ggplot(data.frame(x=1:4, y=4:1, col=factor(1:4)), aes(x=x, y=y, col=col)) +
geom_point(size=10) + guides(colour = guide_legend(reverse=T))
Если вы помещаете его в числовое значение и это непрерывный масштаб, вам лучше с scale_fill_continuous(trans = 'reverse') или scale_colour_continuous. Используя ваш код, это даст:
ggplot(subset(df,feedback==1&stp>20), aes(x=correct, fill=day, colour=day)) +
geom_histogram(colour="black", binwidth=10) +
facet_grid(day ~ .) +
ggtitle("Over-pronation histogram") +
ylab("Count (150s period)") +
xlab("% Steps in over-pronation")+
scale_fill_continuous(trans = 'reverse')
Для непрерывных масштабов требуется guide_colorbar.
Здесь я меняю цвет направления. Затем я изменяю цвет и размер порядка с различными функциями
library(tidyverse)
library(janitor)
iris %>%
as_tibble() %>%
clean_names() %>%
ggplot(aes(x = sepal_length,
y = petal_width,
size = sepal_width,
color = petal_length)) +
geom_point() +
facet_wrap(~species,scales = "free") +
#reverse color direction (the higher in value, the darker in color)
scale_color_continuous(trans = 'reverse') +
#edit legends
guides(
#reverse color order (higher value on top)
color = guide_colorbar(reverse = TRUE),
#reverse size order (higher diameter on top)
size = guide_legend(reverse = TRUE))