R plot，更改绘图轴值的比例

Question

我正在用 R 绘图，堆积条形图和轴 2 的代码很简单，这里是直线和轴 4 的代码：

lines(y, 
    theLineValues,     
    type    = "o", 
    pch     = 20,
    lwd     = 2, 
    cex     = 1.2, 
    lty     = 1, 
    col     ="forestgreen")

axis(4, 
    at      = getYaxis(0,1,0.01, 3),    # function to get 3 values for axis
    labels  = getYaxis(0,1,0.01, 3),
    col.axis= "forestgreen", 
    las     = 1,
    cex.axis= 0.7,
    col     = "forestgreen",
    line    = 0)

然后我找到了最小值和最大值：0.46,0.68，想把它们作为轴，这样可以更明显地看到线的变化（红线）。

labels  = getYaxis(min(theLineValues),max(theLineValues),0.01,3),

我如何缩放 'theLineValues' 来做到这一点？

谢谢。

============================================= ========================= 更新 1：'y':

的代码

y <- barplot(
    combinedvalues,     # it's list of 3-combined values.
    col     = c("slategray1","darkseagreen1","moccasin"),
    beside  = FALSE,
    border = "grey80",
    las     = 1,
    cex.axis= 1.0,
    ann     = FALSE,
    ylim    = c(0,1),
    yaxt    = "n")

============================================= ========================= 更新 2：组合值：

这些值在 .csv 文件中，并使用以下内容获取 'combinedvalues' 并将其传递给 'y'：

rbind(csv$frame0,csv$frame1,csv$frame2)
# frame0+frame1+frame2 shoud be 1, theLineValues were calculated by some formulas.

csv 文件：

frame0          frame1          frame2          theLineValues
------------------------------------------------------------
0.4460203874    0.2271394791    0.3268401336    0.4674583872
0.4473756948    0.2084173711    0.3442069341    0.4796977238
0.5296042291    0.1570493286    0.3133464423    0.570317484
0.5255498752    0.1234146373    0.3510354875    0.6095475721
0.5405768621    0.119299957     0.3401231808    0.6251561825
0.5657840709    0.0916650587    0.3425508703    0.6896446583
0.4826617968    0.0877739789    0.4295642243    0.6610089801
0.3588171226    0.122977733     0.5182051444    0.606129318
0.2608499204    0.1705417922    0.5686082874    0.595971676
0.2111782825    0.2040231107    0.5847986067    0.6057364576
0.1731616573    0.240909341     0.5859290016    0.6153720603

谢谢。

============================================= ========================= 更新 3：最终剧情：

Answer 1

Frames.txt是基于三个框架列。

数据

frames <- read.table("/your-path/frames.txt",header=T,na.string="NA")

theLineValues<-c(0.4674583872, 0.4796977238, 0.570317484, 0.6095475721, 0.6251561825, 0.6896446583, 0.6610089801, 0.606129318, 0.595971676, 0.6057364576, 0.6153720603)

情节

barplot(t(frames), , col = c("slategray1","darkseagreen1","moccasin"))
axis(2, ylim=c(0,1))
mtext("barplot values", side=2, line=2)
box()

par(new=TRUE)
plot(theLineValues, type = "l", pch = 20, xlab="", ylab="", col = "forestgreen", lwd=2, ylim=c(min(theLineValues), max(theLineValues)), axes=FALSE)
axis(4, ylim=c(min(theLineValues), max(theLineValues)))
mtext("lineValues", side=4, line=0.2)
box()

R plot，更改绘图轴值的比例

R plot, change scale of values for plot axis

plot

r