Both
myfirstnetwork<- graph(edges = c("Alice","Sam", "Sam","David", "David","Alice"), directed = FALSE)
plot (myfirstnetwork)
and
make_graph(edges = c("Alice","Sam", "Sam","David", "David","Alice"), directed = FALSE)
worked for me (slightly different plots).