#defaultView:BubbleChart
SELECT
  (SAMPLE(?number_of_works_) AS ?works)
  ?topic ?topicLabel ?topicDescription
WITH {
  SELECT DISTINCT ?researcher WHERE {
    ?researcher ( wdt:P108 | wdt:P463 | wdt:P1416 ) / wdt:P361* wd:Q1269766 . 
  } 
} AS %researchers
WITH {
  SELECT DISTINCT ?topic
    (COUNT(?work) AS ?number_of_works_)
  WHERE {
    INCLUDE %researchers
    ?work wdt:P50 ?researcher . 
    ?work wdt:P921 ?topic . 
  } 
  GROUP BY ?topic
#  LIMIT 100
} AS %researchers_and_number_of_works
WHERE {
  INCLUDE %researchers_and_number_of_works
  SERVICE wikibase:label { bd:serviceParam wikibase:language "en,da,de,es,fr,nl,no,ru,sv,zh" . } 
}
GROUP BY ?topic ?topicLabel ?topicDescription 
#ORDER BY DESC(?works)