我正在尝试使用Mapview库的一些基本功能。 here's the documentation。我只需要在某个城市设置地图然后创建一些标记(坐标将从另一个函数给出) 这是我的代码:
df$DupCount <- apply(df[,startsWith(names(df),"q")], 1, function(x){
dup <- sort(table(x), decreasing = TRUE)
dup = dup[dup>1]
paste0(paste(names(dup), dup, sep = "="), collapse = ";")
})
df
# id q1 q2 q3 q4 q5 q6 q7 q8 q9 q10 DupCount
# 1 1 2 1 5 5 5 4 5 3 1 1 5=4;1=3 <- 5=4 times; 1=3 times
# 2 2 4 3 3 2 4 3 5 4 3 2 3=4;4=3;2=2 <- 3=4 times; 4=3 times, 2=2 times
# 3 3 3 5 4 1 4 3 4 2 3 3 3=4;4=3
# 4 4 5 3 3 2 5 2 4 2 2 2 2=5;3=2;5=2
# 5 5 5 3 1 5 4 1 1 2 1 5 1=4;5=3
答案 0 :(得分:0)
你可以使用 mapview.center_on(50.6394, 3.057)