如何将data.frame转换为SpatialPolygonsDataFrame

Question

也许这很简单，但我现在很困惑。 我有一个library(dplyr) # >= 1.0.0 library(tidyr) df %>% separate_rows(text) %>% group_by(key) %>% summarise(extra = toString(setdiff(text, specified_value))) %>% left_join(df) %>% mutate(extra = na_if(extra, "")) # A tibble: 4 x 3 # key extra text # <dbl> <chr> <chr> #1 1 c a,b,c #2 2 d a,d #3 3 1, 2 1,2 #4 4 <NA> a,b ，它提取数据列并将其转换为标准的SpatialPolygonsDataFrame。然后，我将数据取整。但是，当我想将已经四舍五入的数据插入dataframe时，我看到它会将数据保留为原始数据，而不进行四舍五入。这是我的代码。

SpatialPolygonsDataFrame

This is what my console shows me很抱歉，我没有足够的声誉来发布图像。

Answer 1

您需要将df分配给df %>% mutate_if(is.numeric, round)，即

df <- df %>% mutate_if(is.numeric, round)

否则，您df保持不变。

此外，没有什么可以阻止您这样做：

Hex_Grid_Pop@data[,3:13] <- Hex_Grid_Pop@data[,3:13] %>% mutate_if(is.numeric, round)