It would be really helpful if you provided an example of what you are looking for with this question. 

# if you have a data table with known locations and you need to  simulate a type or #weight you can try the following

coords = as.data.frame(list(x = c(74.0059,118.25,87.6847),

y = c(40.7127,34.05,41.8369),

city = c("New York","Los Angeles","Chicago")))

data = NULL

for(i in 1:10){

data1 = coords[sample(nrow(coords),size = 1),]

data1$type = sample(x = c(1:10),size=1)

data = rbind(data,data1)

}

data

or if you want to simulate your x and y locations along with a type you can try the following. Unfortunately without further info about what you need I'm not sure what else I can do

x = NULL

y = NULL

type = NULL

for(i in 1:10){

x[i] = rnorm(n = 1,mean = 0, sd = 5)

y[i] = rnorm(n = 1,mean = 0, sd = 5)

type[i] = sample(x = c(1,2,3),size=1)

}

plot(x, y, cex = type, col = type)