############################################################
#
#Autor: paul@statistiker-wg.de
#Date:
#Beschreibung: Funktion zur Erzeugung von xy-Koordinaten,
#              Radien und Kennzahlen für Farbe, um mit TikZ
#              in LaTeX bubbles zu zeichnen
#
############################################################

############################################################
#
# a ... unterste Intervallgrenze von x
# b ... oberste Intervallgrenze von x
# c ... unterste Intervallgrenze von y
# d ... oberste Intervallgrenze von y
# n ... Anzahl der zu erzeugenden xy-Koordinaten
#
############################################################

bubble <- function(a,b,c,d,n){

  x <- round(sample(seq(a, b, by=0.1), n, replace=TRUE), digits=1) #x Koordinaten
  y <- round(sample(seq(c, d, by=0.1), n, replace=TRUE), digits=1) #y Koordinaten
  r <- sample(c(1,2,3), n, replace=TRUE, prob=c(0.4,0.5,0.1)) #Radien
  color <- sample(seq(0, 100, by=10), n, replac=TRUE, prob=c(0.05,0.05,0.05,rep(0.1,7),0.15)) #Mischverhältnis der in TikZ angegebenen Farben
  list <- paste(x[1],"cm/",y[1],"cm/",r[1],"mm/",color[1]) #implementieren der Liste
  
  for(i in 2:n){
    list <- paste(list,",",x[i],"cm/",y[i],"cm/",r[i],"mm/",color[i]) #Inhalt der Liste
  }
  
  return(list) #Ausgabe der Liste

}