when writing out by hand, you can repeat a character string (or anything) with rep() function. like
dayinportugues <- data.frame(
D1 = c(rep("Segunda",2),rep( "Terca",2),rep("Quarta",2),rep("Quinta",2),rep( "Sexta",2), "Sabado", "Domingo"),
D2 = c("segunda", "segunda-feira","terca","terça-feira", "quarta","quarta-feira", "quinta","quinta-feira", "sexta","sexta-feira", "sabado", "domingo"))
You can even write your own function to remove the need for ,2 param and the letters ep in rep
r2 <-function(x)rep(x,2)
dayinportugues <- data.frame(
D1 = c(r2("Segunda"),r2( "Terca"),r2("Quarta"),r2("Quinta"),r2( "Sexta"), "Sabado", "Domingo"),
D2 = c("segunda", "segunda-feira","terca","terça-feira", "quarta","quarta-feira", "quinta","quinta-feira", "sexta","sexta-feira", "sabado", "domingo"))