Создать выровненную гистограмму с помощью R

Question

У меня есть набор данных .txt, который содержит три матрицы, каждая из которых представляет значения RGB изображения!У меня нет изображения (или любого файла изображения)!Как я могу создать выровненную гистограмму каждой из моих матриц?Я нашел функцию histeq, но она не кажется правильной!Что мне удалось сделать, это (это первая часть, чтобы показать данные)

fr<-as.data.frame(table(unlist(r)))
fg<-as.data.frame(table(unlist(g)))
fb<-as.data.frame(table(unlist(b)))

fr1=(fr$Freq*100)/(15*15) fb1=(fb$Freq*100)/(15*15)
fg1=(fg$Freq*100)/(15*15)
fr2=cumsum(fr1) fg2=cumsum(fg1) fb2=cumsum(fb1)

r1<-data.frame(fr,fr1,fr2) names<-c("Values","2","Distribution
   Frequancy %","Cumalnative Distribution Frequency %")
   colnames(r1)<-names r1$Values <- as.numeric(as.character(r1$Values))

g1<-data.frame(fg,fg1,fg2) colnames(g1)<-names g1$Values <-
   as.numeric(as.character(g1$Values))

b1<-data.frame(fb,fb1,fb2) colnames(b1)<-names

b1$Values <- as.numeric(as.character(b1$Values))

Это первая часть моего упражнения!Чем я должен был:

hb1<-ggplot(data=b1, aes(b1$Values)) +    geom_histogram(breaks=seq(0,
260, by =20), 
                  col="white", 
                  aes(fill=..count..))+    labs(title="Ιστόγραμμα Συχνότητας Μπλε Καναλιού") +   labs(x="Τιμές", y="Συχνότητα")

hb2<-ggplot(data=b1, aes(b1$Values)) +    geom_histogram(breaks=seq(0,
260, by =20), 
                  col="white", 
                  aes(y=cumsum(..count..),fill=..count..))+    labs(title="Ιστόγραμμα Συχνότητας Μπλε Καναλιού") +   labs(x="Τιμές")

 hb3<-ggplot(data=b1, aes(histeq(b1$Values))) +   
 geom_histogram(breaks=seq(0, 260, by =20), 
                  col="white", 
                  aes(fill=..count..))+    labs(title="Ιστόγραμμα Εξίσωσης Μπλε Καναλιού") +   labs(x="Nέες Τιμές")

 # Κόκκινο

 hr1<-ggplot(data=r1, aes(r1$Values)) +    geom_histogram(breaks=seq(0,
 260, by =20), 
                  col="white", 
                  aes(fill=..count..))+    scale_fill_gradient("Count", low = "lightpink", high = "red")+    labs(title="Ιστόγραμμα Συχνότητας
 Κόκκινου Καναλιού") +   labs(x="Τιμές")

 hr2<-ggplot(data=r1, aes(r1$Values)) +    geom_histogram(breaks=seq(0,
 260, by =20), 
                  col="white", 
                  aes(y=cumsum(..count..),fill=..count..))+    scale_fill_gradient("Count", low = "lightpink", high = "red")+   
 labs(title="ΑΘροιστικό Ιστόγραμμα Κόκκινου Καναλιού") +  
 labs(x="Τιμές")

 hr3<-ggplot(data=r1, aes(histeq(r1$Values))) +   
 geom_histogram(breaks=seq(0, 260, by =20), 
                  col="white", 
                  aes(fill=..count..))+    scale_fill_gradient("Count", low = "lightpink", high = "red")+    labs(title="Ιστόγραμμα Εξίσωσης
 Κόκκινου Καναλιού") +   labs(x="Νέες Τιμές")

 #Πράσινο

 hg1<-ggplot(data=g1, aes(g1$Values)) +    geom_histogram(breaks=seq(0,
 260, by =20), 
                  col="white", 
                  aes(fill=..count..))+    scale_fill_gradient("Count", low = "lightgreen", high = "green")+    labs(title="Ιστόγραμμα
 Συχνότητας Πράσινου Καναλιού") +   labs(x="Τιμές")

 hg2<-ggplot(data=g1, aes(g1$Values)) +    geom_histogram(breaks=seq(0,
 260, by =20), 
                  col="white", 
                  aes(y=cumsum(..count..),fill=..count..))+   scale_fill_gradient("Count", low = "lightgreen", high = "green")+  
 labs(title="Αθροιστικό Ιστόγραμμα Πράσινου Καναλιού") +  
 labs(x="Τιμές")

 hg3<-ggplot(data=g1, aes(histeq(g1$Values))) +   
 geom_histogram(breaks=seq(0, 260, by =20), 
                  col="white", 
                  aes(fill=..count..))+   scale_fill_gradient("Count", low = "lightgreen", high = "green")+   labs(title="Ιστόγραμμα Εξίσωσης
 Πράσινου Καναλιού") +   labs(x="Νέες Τιμές")

Но так!Использование histeq У меня нет матрицы, но есть новый массив новых значений.Я хочу новые матрицы со значениями выровненной гистограммы, хотя