使用R语言绘制2 y轴和相同x轴的条形图

Question

我试图用两个不同的y轴和相同的x轴绘制条形图。

出于某种原因，我无法在R中使用条形图进行绘图。我尝试使用绘图功能。但不能接近我想要的。

以下是数据：

x,y1,y2
1,130,1525157
2,84,1070393
3,140,1263374
4,346,2620949
5,354,2939962
6,300,3303101
7,127,1647361
8,69,1168261
9,44,7447573
10,38,12804778
11,12,570379
12,22,3100184
13,7,236046
14,23,2322048

代码用于尝试如下：

options(scipen=10000000)
bargraph_test <- read.csv(file="data_test.csv",head=TRUE,sep=",")
attach(bargraph_test)
plot(x = x, y = y1, col = "blue", type = "h", xlab = "x", ylab = "y1", main = "")
par(new = T)
plot(x = x, y = y1, col = "green", type = "h", xaxt = "n", yaxt = "n", xlab = "", ylab = "")
axis(4)
mtext("y2", side = 4, line = 3)

我附上了我得到的输出的截图。

我需要将这些线条显示为条形图案。

有人可以帮我解决这个问题。

感谢您的帮助。

Answer 1

使用highcharter，您可以添加任意数量的Y轴。只需在hc_yAxis_multiples＆amp;中添加另一个条目即可hc_add_series。

library(highcharter)

highchart() %>% 
  hc_yAxis_multiples(
    list(lineWidth = 3, lineColor='blue', title=list(text="y1")),
    list(lineWidth = 3, lineColor="green", title=list(text="y2"))
  ) %>% 
  hc_add_series(data = df$y1, color='blue', type = "column") %>% 
  hc_add_series(data = df$y2, color='green', type = "column", yAxis = 1) %>%
  hc_xAxis(categories = df$x, title = list(text = "x"))

输出图：

#sample data
> dput(df)
structure(list(x = 1:14, y1 = c(130L, 84L, 140L, 346L, 354L, 
300L, 127L, 69L, 44L, 38L, 12L, 22L, 7L, 23L), y2 = c(1525157L, 
1070393L, 1263374L, 2620949L, 2939962L, 3303101L, 1647361L, 1168261L, 
7447573L, 12804778L, 570379L, 3100184L, 236046L, 2322048L)), .Names = c("x", 
"y1", "y2"), class = "data.frame", row.names = c(NA, -14L))

Answer 2

正如问题的最后一句话所表明的那样，实际问题是“我如何获得更宽的条/线？”。我回答这个问题，而不是问题标题中的问题。

您可以使用参数lwd使线条更粗。要获得条形图/线条的好结果：请参阅此answer to 'Increasing the width of type “h” R plot'并使用lend=1。

# data
x <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14)
y1 <- c(130,84,140,346,354,300,127,69,44,38,12,22,7,23)
y2 <- c(1525157,1070393,1263374,2620949,2939962,3303101,1647361,1168261,7447573,12804778,570379,3100184,236046,2322048)

# what-ever ...
options(scipen=10000000)

# first set of bars
plot(x = x-0.1, y = y1, col = "blue", type = "h", xlab = "x", ylab = "y1", main = "", xlim = range(x), lwd = 4, lend = 1)
# new:
#  xlim = range(x) :: we need it so that the x-axis is not shifted
#  lwd = 4         :: thicker lines
#  lend = 1        :: flat line ends
#  please note 'x-0.1'

# add second set of bars
par(new = T)
plot(x = x + 0.1, y = y2, col = "green", type = "h", xaxt = "n", yaxt = "n", xlab = "", ylab = "", xlim = range(x), lwd = 4, lend=1)

# second y-axis
axis(4)
mtext("y2", side = 4, line = 3)