小编Bel*_*_18的帖子

我有 5 个不同长度的向量

a <- c(1) #with length of 1
b <- c(4.4,3.5) #length 2
c <- c(5.6,7.8,6.0) #length 3
d <- c(0.8,6.9,8.8,5.8) #length 4
e <- c(1.8,2.5,2.3,6.5,1.1) #length is 5

我试图获取所有向量中元素的平均值：

 #since there are 5 values available for 1st element
 a[1]+b[1]+c[1]+d[1]+e[1] / 5 

 #since there are 4 values available for 2nd element
 b[2]+c[2]+d[2]+e[2] / 4 

#next divide by 3 and 2...1
c[3]+d[3]+e[3] / 3 and so on...

我需要另一个数组中这些值的平均值，以便我可以进一步处理数据。

我有一个向量

temp <- c("hyndman_ensemble","four_theta","tbats")

当我打印温度时 four_theta 和 tbats 之间有未知空格（在 R 控制台中尝试此操作）

[1] "hyndman_ensemble" "four_theta"       "tbats" 

我在图例中使用这个温度。由于图例有空格，如果列表中有 5 个项目，则数据会丢失。

图例_功能：

add_legend <- function(...) {
  opar <- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0),
              mar=c(0, 0, 0, 0), new=TRUE)
  on.exit(par(opar))
  plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
  legend(...)
}

cl <- rainbow(3) 
#Null plot just to display what is happening with the spaces in legend
plot(NULL, xlim=c(0,30), ylim=c(0,100000))
add_legend("topright", legend=c("test1",temp), lty=1,
                   col=c("orange", cl),
                   horiz=TRUE, bty='n', cex=0.8)

这就是情节的样子。

即使我使用trimws()，我也会得到空格（见图）

谁能告诉我如何删除这些空格或任何可以在图外打印图例而没有任何空格的替代方法（图例不强制位于顶部）

我有两个向量

a <- c(1,1,1,1,20,30,40,100,300)
b <- c(2,2,2,2,100,0,0,120,5)

我想创建一个向量，比较并给出两个向量中最后 5 个元素的最大值。

前 4 个元素必须与向量中的相同a。

output <- c(1,1,1,1,100,30,40,120,300)

我想创建一个 8 列的数据框

每个单元格可以有 5 个可能的值

"strongly agree", "agree", "disagree", "strongly disagree" and NaN

我想生成一个具有所有可能性（排列/组合）的数据帧，以便我可以使用该数据帧进行进一步处理。

是否可以生成这个数据框？在 python 或 R 中？

总而言之， 一个包含 8 列和 5 个值组合的数据框。数据框中应有 5^8 行数据

我有一个清单

temp_list <- c("Temp01_T1", "Temp03_T1", "Temp04_T1", "Temp11_T6", 
"Temp121_T6", "Temp99_T8")

我想按如下方式更改此列表

output_list <- c("T1_Temp01", "T1_Temp03", "T1_Temp04", "T6_Temp11", 
    "T6_Temp121", "T8_Temp99")

任何线索将不胜感激