Я пытаюсь построить линейный график / линейный график, чтобы показать связь между двумя переменными.Однако, поскольку длины переменных x и y отличаются незначительно, я получаю постоянную ошибку
####Getting cumulative emissions data for x-axis
ncfname1 <- "cumulative_emissions_RCP45.nc" #(1-Dimensional array)
Model3 <- nc_open(ncfname1)
get2 <- ncvar_get(Model3, "CanESM2") #Has 90 values
get2.teratons <- get2/1000 #converts all values gigatons to teratons
####Getting Model data for extreme precipitation (units of
millimeters/day) for y-axis
Model4 <- brick("MaxPrecCCCMACanESM2rcp45.nc", var="onedaymax") #This is a
3-Dimensional array and has 95 values
latlon <- cbind(45.525,-73.968) #specifies specific lat/lon location
Hope3 <- extract(Model4,latlon)
Для построения
plot(get2.teratons,Hope3, type="l",col="black", xlab="1pctCO2 Cumulative
carbon emissions (TtC)", ylab="One-day maximum precipitation (mm/day)",
main="One-day maximum precipitation for CanESM2 1pctCO2")
Это приводит к следующей ошибке:
Error in xy.coords(x, y, xlabel, ylabel, log) : 'x' and 'y' lengths differ
Впытаясь устранить эту ошибку, я подумал, что было бы лучше опустить последние 5 значений «Model4», чтобы соответствовать длине «get2.teratons», который имеет 90 значений, я пытался следовать, чтобы выбрать первые 90 значенийв Model4, выполнив это:
new.data<-dplyr::between(Model4,0,89)
выдает эту ошибку:
Error: Not compatible with requested type: [type=S4; target=double].
Затем я попытался это:
newfile<-Model4[Model4$onedaymax %in% (0:89),]
Но я получаю эту ошибку:
Error in .local(x, ...) : invalid layer names
Я не уверен, что еще я могу сделать в этот момент, но цель состоит в том, чтобы мои значения x и y совпали (90 значений каждое, в отличие от 90 и 95, что вызываетошибка прорисовки).Разве кто-нибудь знает другой и более простой способ преодоления этой ошибки при печати?
Любая помощь будет чрезвычайно полезной !!!!
Спасибо,