小编Hüs*_*yşi的帖子

我有两个数据要在散点图中进行比较。

data1 <-c(0.341, 0.655, 0.934, 1.741)
data2 <-c(1.8, 2, 2.4, 2.6)

通过下面的代码我得到了这个：

plot(data1, data2, main="Minute Max.", asp=1,
      xlab="Historical Values ", ylab="Disaggregated Values", pch=19)

我有三个愿望：

1）添加45度线

2）具有相同的坐标长度。对于上面的示例，您可以看到最大值。总价值为2.6。所以我希望我的散点图是正方形的。x 和 y 坐标长度都必须为 2.6。

3）我知道如何手动导出绘图。但是我应该使用哪个代码来导出绘图？

我在 r 中有一个列表列表。我想为每个列表中的每一行找到最大值。

这是我的数据：

$`01-2020`
$`01-2020`$h1
 [1] 5 5 5 1 6 1 6 4 4 2

$`01-2020`$h2
[1] 5 1 7 0 8


$`02-2020`
$`02-2020`$h1
[1] 0 0 0 0 1 2 1 1 1

$`02-2020`$h2
[1] 10  8  7  5  4

及其结构：

data<-list(`01-2020` = list(h1 = c(5, 5, 5, 1, 6, 1, 6, 4, 4, 2), h2 = c(5, 
    1, 7, 0, 8)), `02-2020` = list(h1 = c(0, 0, 0, 0, 1, 2, 1, 1, 
    1), h2 = …

这是我的数据：

data<-structure(c(1, NA, 2, NA, NA, 9), .Dim = 2:3, .Dimnames = list(
    c("1", "2"), NULL), .Names = c("1", "2", NA, NA, NA, NA))

我每行都有 NA，但行彼此对应（如果一行有 NA，则同一列中的另一行有一个值）

  [,1] [,2] [,3]
1    1    2   NA
2   NA   NA    9

这是所需的输出：

   [,1] [,2] [,3]
1    1    2    9



structure(c(1, 2, 9), .Dim = c(1L, 3L), .Dimnames = list("1", 
    NULL))