🤒 Anton Zeilinger | 属于全世界的诺奖得主！？

1写在前面

2022年诺贝尔物理学奖授予了法国学者阿兰·阿斯佩（Alain Aspect），美国学者约翰·克劳泽（John Clauser）和奥地利学者安东·塞林格（Anton Zeilinger），以表彰他们“用纠缠光子进行实验，证伪贝尔不等式，开创量子信息科学”。

2Anton Zeilinger

🤨 身为医学狗的我本对物理学奖并不感冒，但其中的安东·塞林格（Anton Zeilinger）却让我十分感兴趣，缘由如下：👇

1️⃣ 南京大学

2️⃣ 西安交通大学

3️⃣ 中国科学技术大学

3Anton Zeilinger到底有多少position！？

这里我截取了Wikipedia上Anton Zeilinger部分lectureships，这里有32个单位，13个国家（不包括奥地利）。😂

我相信这里肯定是不全的，因为我没有看到上面提到Anton Zeilinger的两个中国高校~😤

4R 可视化

身为一个不务正业，天天写code的医学狗🐶，这里我用R可视化一下！

4.1 用到的包

rm(list = ls())
library(tidyverse)
library(ggmap)

4.2 示例数据

dat <- read.csv("map.csv")

4.3 初步绘制

mp <- NULL #定义一个空的地图
mapworld <- borders("world",colour = "gray50",fill="white") #绘制基本地图

mp <- ggplot() + 
  mapworld + 
  ylim(-60,90)
mp

4. 4 加上标注

mp2 <- mp + 
  geom_point(data = dat, 
             aes(x=Longitude, y=Latitude, size = no),
             color="darkorange") + 
  scale_size(range=c(5,10)) + 
  ggtitle("Anton Zeilinger") +
  theme_bw()+
  theme(legend.position = "none")
mp2