融化函数产生的match.names（clabs，names（xi））错误

Question

我正在尝试使用melt函数重塑数据。从csv文件导入数据后，我成功完成了操作，但是以某种方式尝试从xlsx文件导入数据时，错误弹出。

这是我的数据

PAR     T27 T25.5   T24 T22.5   T21 T19.5   T18 T16.5
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 0      0.06  0.06  0.06  0.06  0.06  0.06  0.06  0.06
2 6      1.44  1.67  1.63  1.6   1.6   1.42  1.54  1.47
3 18     3.78  4.94  4.88  4.68  4.72  3.87  4.34  4.08
4 35     5.06  7.63  7.7   7.05  7.04  5.23  5.7   5.2 
5 61     5.68  8.97  9.47  8.41  8.18  5.72  6.04  5.46
6 93     5.51  8.49  9.47  8.3   7.68  5.35  5.57  5.01
7 121    4.35  6.83  8.07  6.97  6.29  4.43  4.4   4.08
8 195    3.21  5.28  6.55  5.44  4.82  3.19  3.29  2.96
9 268    1.91  2.88  3.6   2.96  2.74  1.66  1.77  1.3

以下是我的代码，这些代码适用于csv文件而不适用于xlsx文件：

library(readxl)
RLCx <- read_excel("RLC.xlsx")
RLCx$PAR=as.character(RLCx$PAR)

RLCxmelt<-melt(RLCx, id = c("PAR"))

得到的错误消息是：

Error in match.names(clabs, names(xi)) : 
names do not match previous names

期望的结果（附照片）是使用PAR列和T作为自变量。

Image: Reshaped data table

我也尝试使用melt(RLCx, measure vars. = ("PAR")，但这并没有以合理的方式改变表格的形状。如果有人可以在这里帮助我，我将不胜感激。谢谢。