r中barplot保持水平画图，但是图旋转方向

如果你想要保持水平条形图的方向，但是又想将刻度标签旋转方向，可以通过以下两种方法实现：

方法一：使用 `axis()` 函数手动添加刻度标签，并设置 `las` 参数来控制标签旋转方向。例如，以下代码将绘制一个水平条形图，刻度标签设置为垂直方向：

# 创建数据
values <- c(3, 6, 2, 8, 4)
names <- c("A", "B", "C", "D", "E")

# 绘制水平条形图
barplot(values, horiz=TRUE, names.arg=rep("", length(values)))

# 添加刻度标签，将标签旋转为垂直方向
axis(side=2, at=1:length(values), labels=names, las=2)

在上面的代码中，我们首先绘制了一个水平条形图，然后使用 `axis()` 函数手动添加了刻度标签，将 `side` 参数设置为 2，表示添加左侧的刻度标签，`at` 参数设置为 1:length(values)，表示在每个条形图的中心位置添加一个刻度标签，`labels` 参数设置为 `names`，表示使用 `names` 中的名称作为标签，`las` 参数设置为 2，表示将标签旋转为垂直方向。

方法二：使用 `par()` 函数设置全局参数 `las`，来控制所有绘图的标签旋转方向。例如，以下代码将设置全局参数 `las=2`，绘制的所有图形的刻度标签都将旋转为垂直方向：

# 创建数据
values <- c(3, 6, 2, 8, 4)
names <- c("A", "B", "C", "D", "E")

# 设置全局参数 las，将标签旋转为垂直方向
par(las=2)

# 绘制水平条形图
barplot(values, horiz=TRUE, names.arg=names)

在上面的代码中，我们使用 `par()` 函数将全局参数 `las` 设置为 2，表示将标签旋转为垂直方向，然后绘制了一个水平条形图，此时刻度标签的方向将按照全局参数 `las` 的设置进行旋转。需要注意的是，设置全局参数 `las` 可能会导致所有图形的标签方向都发生变化，因此需要谨慎使用。