---
# System prepended metadata

title: see this - notes on ENB
tags: [nlib]

---

---
tags:  nlib
---

# see this - notes on ENB

https://docs.google.com/spreadsheets/d/1vw1jjbFHIf9YA3hvObBOe5CR-E-4qadJIt4wCoxwLjA/edit#gid=612440160


```
ENB_author <-  data.table(ENB_author)
ENB_author[,.N,.(autor_name,autor_dates)]
ENB_author[autor_name=="",.N,.(autor_name,autor_dates)]
ENB_author[autor_name=="",autor_name:=NA]
ENB_author[,.N,autor_name][order(autor_name)] %>% write_tsv("authors.tsv")

ENB_author[!is.na(autor_name),.N,.(autor_name,autor_dates)][order(-N)][,seq:=.I] %>% 
  ggplot(aes(x=seq,y=N))+
  geom_point()

ENB_author[!is.na(autor_name),.N,.(autor_name,autor_dates)][,.(nn=.N),N] %>% 
  ggplot(aes(x=N,y=nn))+
  geom_point()
ENB_author[!is.na(autor_name),.N,.(autor_name,autor_dates)][,.(nn=.N),N] %>% 
  ggplot(aes(x=log(N),y=log(nn)))+
  geom_point()
nrow(ENB_author[,.N,.(autor_name,autor_dates)])

```

![](https://i.imgur.com/BH8UQbR.png)


![](https://i.imgur.com/KhTvpBY.png)


![](https://i.imgur.com/pmENWyz.png)

![](https://i.imgur.com/D503N9R.png)
