在 R 中创建 ggplot2 图形，其 Y 轴和 X 轴位于顶部。

要创建顶部有反转 Y 轴和 X 轴的 ggplot2 图形，我们可以使用 ggplot2 包的 scale_y_reverse 和 scale_x_continuous 函数。

例如，如果我们有一个名为 df 的数据框，其中包含两列 X 和 Y，并且我们想要创建 X 和 Y 之间的散点图，其中 Y 轴和 X 轴在顶部，那么我们可以使用以下命令 -

ggplot(df,aes(X,Y))+geom_point()+scale_y_reverse()+scale_x_continuous(position="top")

示例

以下代码段创建了一个示例数据框 -

x<-rnorm(20)
y<-rnorm(20)
df<-data.frame(x,y)
df

创建以下数据框

x y

1 0.59312447 0.4993337

2 0.08696615 -0.1242276

3 1.11337560 -0.5706901

4 0.01421750 0.3663344

5 -0.84509560 0.4541131

6 -0.65373363 0.9613303

7 -0.35945721 -0.1857298

8 0.59160684 0.3575833

9 -1.26637220 -1.1135318

10 0.38272955 0.8173167

11 0.06691834 0.3234260

12 0.16622601 1.2409558

13 0.46761776 -0.9447498

14 1.58349520 -0.4018503

15 0.58928505 -2.6192820

16 0.36153663 2.1236007

17 0.53978229 -0.5937517

18 -1.03483870 1.0795689

19 -1.17331809 -1.0425776

20 -1.12299141 -0.7738698

要加载 ggplot2 包并在上面创建的数据框中创建 x 和 y 之间的散点图，请将以下代码添加到上面的代码片段中 -

x<-rnorm(20)
y<-rnorm(20)
df<-data.frame(x,y)
library(ggplot2)
ggplot(df,aes(x,y))+geom_point()

输出结果

如果您将上述所有片段作为单个程序执行，它会生成以下输出 -

要在上面创建的数据框的顶部创建 x 和 y 之间的散点图，其中 Y 轴和 X 轴位于顶部，请将以下代码添加到上面的代码片段 -

x<-rnorm(20)
y<-rnorm(20)
df<-data.frame(x,y)
library(ggplot2)
ggplot(df,aes(x,y))+geom_point()+scale_y_reverse()+scale_x_continuous(position="top")

输出结果

如果您将上述所有片段作为单个程序执行，它会生成以下输出 -