我必须尝试从db获取lat,lng值并将结果编码为json,如此
library(ggplot2)
textsize=12
o2b <- colorRampPalette(c("brown", "orange"))(4)
p <- theme(panel.grid.major=element_blank(), panel.grid.minor=element_blank(),
panel.background=element_blank(), panel.border=element_blank(),
plot.title=element_blank(),
legend.background=element_blank(), legend.key=element_blank(), legend.position=c(1,1),
legend.justification=c(1,1), legend.text=element_text(size=textsize), legend.title=element_text(size=textsize),
axis.line=element_line(colour="black"), axis.text=element_text(size=textsize, colour="black"),
axis.title=element_text(size=textsize))
p1 <- ggplot(temp1, aes(x=rank, y=rhh, colour=factor(naics_level))) + p + geom_point(shape=1, size=2) +
scale_color_manual(values=o2b) +
guides(colour = guide_legend(title="Niveau de NAICS", title.position = "left", reverse=T)) +
labs(x="Rang des MSA", y="Diversité sectorielle basée sur l'emploi en 2015")
# Turn off clipping
library(grid)
# Neither of the two following commands makes a difference
gt <- ggplotGrob(p1)
gt <- ggplot_gtable(ggplot_build(p1))
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)
但标记未在地图上显示(位置未在地图上显示)
这是我的代码,我的错误请指导我
[{"name":"ahmedabad,GUJ","lat":"72.5226896","lng":"72.5226896"}]
值从db成功获取并在json中编码,但在地图上找不到那些坐标位置
答案 0 :(得分:1)
您刚刚将标记的值分配给php var而不是javascript var
/* Convert data to json */
$markers = json_encode($locations);
echo "<script>
var markers[] = " . $markers .";
</script>";
?>