отображение вариантов выбора в ответе на элемент

Question

Я пытаюсь создать функцию, которая отображает варианты ответа элемента из матрицы, однако в выходных данных графика просматривается только один элемент. Кто-нибудь может сказать мне, что не так с функцией, или исправление в функции будет оценено.

sec<-function(data){

        N<-nrow(data)
        rdd<-matrix(NA,ncol(data), 4)
       for(i in 1:ncol(data)){rdd[i, ]<-table(data[,i])/N}

       QW<- 1-rowSums(rdd)
       rownames(rdd)<- paste0("item", 1:ncol(data))
       colnames(rdd)<- c("A","B","C","D")

      optıon<-cbind(rdd, QW)
     for(i in 1:nrow(optıon)){
     par(mfrow= c(1, 2))
     barplot(optıon[i, ], ylim=c(0, 1), 
            xlab= "optıons",ylab="chosen area",
            main=rownames(optıon)[i],col=1:ncol(optıon))
    plot(as.table(optıon[i, ]), type ="b", ylim=c(0, 1),
         xlab="optıons", ylab= "chosen area", main = rownames(optıons)[i],
         col=1 :ncol(optıons), pch=20, cex= 3)}
  return(optıon)

}