R 如何将度（列）转换为弧度

这是示例的外观：

# A tibble: 10 x 6
   trip_id bearing_1 bearing_2 bearing_3 bearing_4 bearing_5
     <int>     <dbl>     <dbl>     <dbl>     <dbl>     <dbl>
 1       1    -115.      26.0      28.5      29.0      44.2 
 2       2     -30.0   -104.     -151.      -79.7      86.3 
 3       3    -174.    -163.       28.9      28.4      33.4 
 4       4     109.      39.7     108.      -90.4     -96.4 
 5       5     164.     173.      172.     -155.     -151.  
 6       6      29.7     28.8      23.7      23.7      -5.72
 7       7    -152.    -152.     -140.      -87.8     -40.4 
 8   27393      36.8     -7.35    125.      125.       -6.25
 9   27394      38.2      8.01      8.01      8.01      8.01
10   27395     -66.6    -68.0     112.       86.0      -2.03

---

这只是乘以

（2*pi）/360

（或者

pi/180

，如果您愿意的话）。。。我们并不真正需要一个单独的包或函数。最难的部分（IMO）是嵌入到tidyverse中。（可以使用

stringr:：str_replace（）

而不是

gsub（）

中的

rename_with（）

步骤…尽管在中使用了

gsub

。）

库（dplyr）
（my.df
%>%突变（跨越（以（“方位”）开始，~.*（2*pi）/360））
%>%将_重命名为（~gsub（“轴承”，“弧度”，“.x）））
)
my.df[，2:6]我们可以使用
lappy

my.df[2:6] <- lapply(my.df[2:6], `*` pi/180)

my.df[2:6]
# A tibble: 10 x 6
   trip_id radian_1         radian_2      radian_3        radian_4       radian_5
     <int>     <dbl>           <dbl>       <dbl>             <dbl>       <dbl>
 1       1    -2.007128     0.4537855     0.4974188      0.5061454      0.7714354
 2       2    -0.5235987   -1.815142     -2.635447      -1.391027       1.506219

my.df[,2:6] <- my.df[,2:6] * pi / 180

my.df[2:6] <- lapply(my.df[2:6], `*` pi/180)