資料
資料檔案對于這個問題來說不夠短。
第二個資料集實際上是一個 svg 影像，Springfield.svg. 我可以使用svgparser包閱讀它：
# remotes::install_github('coolbutuseless/svgparser')
library(svgparser)
df <- svgparser::read_svg("Springfield.svg", obj_type = 'data.frame')
我也可以繪制它：
ggplot()
geom_path(data = df,
aes(x, y,
group = interaction(elem_idx, path_idx)),
color = "grey50")
但它是顛倒的。放大到pos_df相關部分并旋轉繪圖：
ggplot()
geom_path(data = df,
aes(x, y,
group = interaction(elem_idx, path_idx)),
color = "grey50")
coord_cartesian(xlim = c(30000, 44000),
ylim = c(5000, -7000))
我現在想合并這兩個資料集。但是當我這樣做時，pos_df也會翻轉：
ggplot()
geom_path(data = df,
aes(x, y,
group = interaction(elem_idx, path_idx)),
color = "grey50")
coord_cartesian(xlim = c(30000, 44000),
ylim = c(5000, -7000))
geom_path(data = pos_df, mapping = aes(ED_x, ED_y), color = "red")
theme_bw()
如何將坐標限制應用于df唯一？
uj5u.com熱心網友回復：
一種簡單的解決方案是使用-ED_y：
ggplot()
geom_path(data = df,
aes(x, y,
group = interaction(elem_idx, path_idx)),
color = "grey50")
coord_cartesian(xlim = c(30000, 44000),
ylim = c(5000, -7000))
geom_path(data = pos_df, mapping = aes(ED_x, -ED_y), color = "red")
theme_bw()
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/436079.html
上一篇：在R中更改聚類點標簽字體大小
下一篇：在多個圖的頂部添加標題