Make it rain characters
R, 104 bytes



function(s){m=matrix(" ",l&lt;-nchar(s),l)
m[cbind(1:l,sample(l,l,T))]=el(strsplit(s,""))
write(m,1,l,,"")}


Try it online!

Input as a string; writes to stdout.