Изменить диагональ в geom_raster() с нижнего левого-верхнего-правого на верхний левый-нижний правый
Я создал тепловую карту, используя geom_raster() в ggplot, В настоящее время диагональ идет от нижнего левого до верхнего правого. Я пошел, чтобы перевернуть диагональ так, чтобы она шла сверху слева внизу справа.
Я пытался изменить порядок x а также y, но это только полностью изменило порядок, они появляются на оси и не изменили диагональ.
ggplot(data, aes(x=being_rated, y=providing_rating, fill = mean_value)) +
geom_raster()
Я также попробовал предложения, упомянутые здесь, но пока диагональ была перевернута, значения X и Y больше не совпали, как они должны. Например, команда 1 и команда 1 должны быть пустыми, команда 2 и команда 2 должны быть пустыми... В результате получаются пустые команда 1 и команда 15, команда 2 и команда 14 и т. Д.
Вот как сейчас выглядит моя диаграмма:
Вот как я хочу, чтобы это выглядело так: 
Вот данные, с которыми я работаю:
data <- structure(list(providing_rating = structure(c(1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,
5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L,
7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L,
8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L,
9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L,
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L,
11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L,
12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L,
13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 14L,
14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L,
15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L,
15L), .Label = c("Team1", "Team2", "Team3", "Team4", "Team5", "Team6",
"Team7", "Team8", "Team9", "Team10", "Team11", "Team12", "Team13",
"Team14", "Team15"), class = "factor"), being_rated = structure(c(2L,
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 10L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 11L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 12L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 13L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 14L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 15L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L), .Label = c("Team1",
"Team2", "Team3", "Team4", "Team5", "Team6", "Team7", "Team8", "Team9", "Team10",
"Team11", "Team12", "Team13", "Team14", "Team15"), class = "factor"),
mean_value = c(2.5, 2.5, 2.25, 2.75, 1.75, 2, 2.75, 2.25,
2.25, 2.5, 2.25, 2.5, 2.75, 2.75, 2, 2.25, 1.75, 2.5, 2.25,
2.25, 2.25, 1.5, 1.66666666666667, 1.75, 2, 2, 2, 2.75, 2.33333333333333,
3, 2.33333333333333, 2.33333333333333, 2.33333333333333,
2, 2.33333333333333, 2, 2.66666666666667, 2, 2.66666666666667,
3, 2.66666666666667, 3, 2.5, 2.5, 2.5, 2.5, 2, 2.5, 2, 2.5,
2.5, 2, 3, 3, 3, 3, 1.5, 2.5, 2.5, 2, 3, 2.66666666666667,
2.33333333333333, 1.83333333333333, 1.83333333333333, 1.66666666666667,
1.83333333333333, 2.16666666666667, 2.66666666666667, 3,
1.6, 1.8, 1.8, 2, 2.8, 2.8, 2.6, 2, 2, 1.6, 2.8, 1.6, 2.6,
2.8, 1.66666666666667, 2.66666666666667, 1.66666666666667,
1.33333333333333, 2.33333333333333, 2.66666666666667, 1.66666666666667,
1.66666666666667, 1.66666666666667, 1.66666666666667, 3,
2, 2.33333333333333, 3, 2.6, 2.4, 2.4, 2.6, 2.6, 2.8, 2.4,
2.4, 2.6, 2.6, 2.6, 2.4, 2.6, 2.8, 2.33333333333333, 2.33333333333333,
2.33333333333333, 2, 2.66666666666667, 2.33333333333333,
1.66666666666667, 2, 2, 2.33333333333333, 2, 2, 2.33333333333333,
2.66666666666667, 2.66666666666667, 3, 3, 2.66666666666667,
2.66666666666667, 2.66666666666667, 2.66666666666667, 2.33333333333333,
2, 2.33333333333333, 2.66666666666667, 2.66666666666667,
2.66666666666667, 3, 2.5, 2.25, 2, 2, 2, 2.25, 2.25, 2, 2.5,
1.66666666666667, 2.33333333333333, 2.5, 2.5, 3, 3, 3, 3,
3, 2.5, 3, 3, 3, 2.5, 3, 2.5, 3, 2.5, 3, 1.5, 2, 2, 2.5,
1.5, 2, 1.5, 2, 1.5, 2, 1.5, 2.5, 3, 2.5, 2.5, 2.75, 2.25,
3, 2, 2.75, 2.5, 2.25, 2.25, 2.25, 2, 2.25, 2.5, 3, 2, 2.66666666666667,
3, 3, 2.66666666666667, 3, 2.66666666666667, 3, 2.33333333333333,
2.66666666666667, 2.33333333333333, 2.66666666666667, 3,
2.66666666666667)), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -210L))