在 R 中打印来自 table 的行
Print row from table in R
我是 R 的新手,我正在尝试在满足条件时在控制台中连续显示几列。我在互联网上搜索过,但找不到合适的解决方案。目前,我尝试了 R where 子句但收效甚微。
这是我的脚本。
#Coordinates
northing <- 398380.16
easting <- 6873865.89
filePath = '/media/jgm/Toshiba\ HDD/SatelliteData/data/'
file = 'MOD09GQ_2006075.csv'
mydata <- read.table(paste(filePath,file, sep = ""),header=TRUE,sep=",")
mydata$'(x-northing)²' <- (mydata$x-northing)**2
mydata$'(y-easting)²' <- (mydata$y-easting)**2
mydata$'DISTANCE' <- sqrt(mydata$`(x-northing)²`+mydata$`(y-easting)²`)
minDistance <- min(mydata[,10], na.rm = T)
当列 DISTANCE 的值为 minDistance 时,我想在控制台中显示列 sur_refl_b01、sur_refl_b02、NDVI 和 NDVI_SCALED 的值。
希望此 table 输出有所帮助。
欢迎来到 SO,尝试类似的东西:
print(mydata[which(mydata$'DISTANCE'==minDistance),4:7])
我是 R 的新手,我正在尝试在满足条件时在控制台中连续显示几列。我在互联网上搜索过,但找不到合适的解决方案。目前,我尝试了 R where 子句但收效甚微。
这是我的脚本。
#Coordinates
northing <- 398380.16
easting <- 6873865.89
filePath = '/media/jgm/Toshiba\ HDD/SatelliteData/data/'
file = 'MOD09GQ_2006075.csv'
mydata <- read.table(paste(filePath,file, sep = ""),header=TRUE,sep=",")
mydata$'(x-northing)²' <- (mydata$x-northing)**2
mydata$'(y-easting)²' <- (mydata$y-easting)**2
mydata$'DISTANCE' <- sqrt(mydata$`(x-northing)²`+mydata$`(y-easting)²`)
minDistance <- min(mydata[,10], na.rm = T)
当列 DISTANCE 的值为 minDistance 时,我想在控制台中显示列 sur_refl_b01、sur_refl_b02、NDVI 和 NDVI_SCALED 的值。
希望此 table 输出有所帮助。
欢迎来到 SO,尝试类似的东西:
print(mydata[which(mydata$'DISTANCE'==minDistance),4:7])