r - 转换纬度和经度

Question

以下数据框表示经纬度十进制坐标。我希望使用 + 和 - 来显示十进制度是北、南、东还是西（在纬度和经度列中）。

因此，如果十进制度为 N，则纬度将为正。如果十进制度为 S，则纬度将为负。如果十进制度为 E，则经度将为正，如果十进制度数是 W。

a <- c(1:3)
Lat <- c(54.5, 55.2, 10.1)
NS <- c("N","N","S")
Long <- c(1.2, 0.5, 1.3)
EW <- c("W","E","W")
df1 <- data.frame(a,Lat,NS,Long,EW)

我将如何在 R 中做到这一点？任何建议将不胜感激。

Answer 1

使用ifelse：

df1 <- within(df1, {
             Lat <- ifelse(NS=="N", Lat, -Lat)
             Long <- ifelse(EW=="E", Long, -Long)
})

df1
  a   Lat NS Long EW
1 1  54.5  N -1.2  W
2 2  55.2  N  0.5  E
3 3 -10.1  S -1.3  W

---

我within()用来减少打字量。

Answer 2

很简单ifelse：

df2 <- data.frame(a=df1$a, Lat=ifelse(df1$NS=="N", df1$Lat, -1*df1$Lat), 
                           Long=ifelse(df1$EW=="E", df1$Long, -1*df1$Long))

df2
  a   Lat  Long
1 1  54.5 -1.2
2 2  55.2  0.5
3 3 -10.1 -1.3

Answer 3

请参阅 NMEA 转换：http ://www.nmea.org/ 但是，您可以在 for() 方法中执行此操作以获取一个位置