Question

我正在使用plotrix.twoord使用此代码比较单个图表中的两个图：

library(plotrix)

mempool<-read.csv("mempool-size.csv")
mempool$date <- as.Date(mempool$date)
fees<-read.csv("transaction-fees.csv")
fees$date <- as.Date(fees$date)

twoord.plot(mempool$date,mempool$value,fees$date,fees$value,type="b",
            ylab="Unconfirmed transactions (B)",rylab="Fees paid per day (BTC)",
            main="Fees and mempool size since 2017",
            )

这会打印出如下图形：

Plot

这看起来几乎是正确但左轴看起来有点奇怪。我想在值之后显示单位（B） - 最好用公制前缀而不是科学记数法（20MB而不是2e07B）。

我不确定plotrix.twoord是否提供了这样的选项，所以我尝试使用ggplot代替：

ggplot() + 
  geom_line(data=fees, aes(x=date, y=value), color='black') + 
  geom_line(data=mempool, aes(x=date, y=value), color='red')

但现在费用线是平的，因为它没有自己的轴。

如果您想自己尝试，可以在此处找到数据： http://www.sharecsv.com/s/07076796191d9e414e5b50840d9ed7ad/mempool-size.csv http://www.sharecsv.com/s/72a183dd3ab0df781eacbfee81999548/transaction-fees.csv

Answer 1

Plotrix似乎不支持自己提供的刻度线标签，有几种方法可以解决这个问题。

1）最简单的方法是将左轴值除以10 ^ 6

mempool$value <- mempool$value / 1000000
twoord.plot(mempool$date,mempool$value,fees$date,fees$value,type="b",
            ylab="Unconfirmed transactions (MB)",rylab="Fees paid per day (BTC)",
            main="Fees and mempool size since 2017",
            )

2）您可以使用没有plotrix的基础R，例如

plot(mempool$date,mempool$value, type='b',ylab="Unconfirmed transactions", yaxt='n',xlab='Date')
axis(2, c('0MB', '20MB', '40MB', '60MB', '80MB', '100MB', '120MB', '140MB'), at=seq(0, 140*10^6, length.out=8))
par(new=TRUE)
plot(fees$date,fees$value,type="b",col="red",xaxt="n",yaxt="n",xlab="", ylab='')
axis(4)
mtext("Fees paid",side=4,line=3)

3）你可以破解twoord.plot函数来删除其中一个轴，然后再添加它，类似于上面的选项2）。有关详细信息，请参阅Handling axis with dates in twoord.plot (remove axis 3)

将单位添加到Y轴

1 个答案: