第一个图像是图形的手绘（使用 MS word）图像。第二张图片是尝试使用 ggraph 生成相同的图。
以下是我在给定节点边连接时用于自动绘制图形的代码（代码来自此线程）。我想移动 ggraph 的 x 和 y 轴，如手绘图所示（图 1）。将 x 轴编号从上到下反转，并将 y 轴移动到顶部。我该怎么做？
library(igraph)
library(tidyverse)
library(ggraph)
V <- read.table(text = "x y
2 1
4 2
4 4
2 5
6 4
3 7
8 6",
header = T) %>%
rownames_to_column("name")
E <- matrix(c(0, 1, 0, 0, 0, 0, 0,
0, 0, 1, 0, 0, 0, 0,
0, 0, 0, 1, 1, 0, 0,
0, 0, 0, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 1, 0, 0), nrow = 7, byrow = T) %>%
data.frame() %>%
rename_all(list(function(x) 1:7)) %>%
rownames_to_column(var = "from") %>%
gather(to, val, 2:6) %>%
filter(val == 1) %>%
select(from, to)
g <- graph_from_data_frame(E, vertices = V, directed = F)
png("C:\\Users\\Yasoda\\Downloads\\rplot.png", width = 450, height = 450)
ggraph(g) +
geom_edge_link(edge_width = 1.3) +
geom_node_label(aes(label = name),label.r = unit(0.75, "lines"),
label.size = 0.65, label.padding = unit(0.55,"lines"), show.legend = F) +
ggtitle("My plot") +
coord_flip() +
expand_limits(x = 0, y = 0) +
scale_x_continuous(expand = c(0, 0), limits = c(0, 9), breaks = c(0:9), minor_breaks = NULL) +
scale_y_continuous(expand = c(0, 0),limits = c(0, 9), breaks = c(0:9), minor_breaks = NULL) +
theme_minimal()
dev.off()
我尝试使用 scale_x_reverse() 但它会扭曲布局并给出警告“'x' 的比例已经存在。为 'x' 添加另一个比例，它将替换现有的比例。”。我也尝试了 scale_y_continuous 中的 position = "top" 选项，它也没有任何区别。
