Thanks for praising.

Thanks, it helped . Do watch my other videos and share with your friends also.

Thanks for good words. Do watch my videos.

Thanks for the appreciation.

thanks.please subscribe and share with your friends.

Thanks for appreciation. do Watch my videos and support my channel by sharing in your contacts.

Thanks for appreciation. Please watch my other videos also and subscribe to my channel. Share these with your friends.

Please recommend this to your friends watch my other videos also.

Glad it helped you. Do watch my other videos also.

Thanks a lot for appreciation.

Thanks for appreciation. Please share with your friends. And subscribe if you have not subscribed yet.

Thanks for comment. Share with your friends.

Thanks for appreciation. Do watch other videos also.

Thanks for appreciation.

Glad, you liked it.

Thanks for the kind words.

Glad you liked it!

If you require any help for data Visualisation, model fitting ask without hesitation.

Glad, that it helped you. Please do watch my other videos also.

Thanks for kind words.

Many thanks!

My pleasure!

Welcome!

Thanks for appreciation. Please spread word about me.

its mt pleasure, you found it useful.

Thanks for appreciating.

Thanks for appreciation. I am trying to add subtitles. But finding it difficult.

Thanks for good words. Please do watch the videos I make.

Thanks for appreciation. This boosts my motivation to go further.

@@DevResearch Sir, i have a question whether the color in "fill = Mes_type" can be changed from defult?

# coloring diffrent form default library(tidyverse) df % gather(Mes_type,Length, 1:4) %>% group_by(Species,Mes_type) %>% summarise(Mean_length=mean(Length), sd_length= sd(Length)) plot= ggplot(df,aes(Species,Mean_length,fill=Mes_type))+ geom_bar(stat="identity",position="dodge")+ geom_errorbar(aes(ymin=Mean_length-sd_length,ymax=Mean_length+sd_length), position=position_dodge(width=0.9),width=0.2)+ theme_bw() # change color using scale_fill_manual function. #Here number of colors must be equal to the numbers of groups to be colored. # you can pick the colors by searching html color picker from google search plot + scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07","#58D68D")) ##predefined ggplot2 colorpalettes library(viridis) plot + scale_color_viridis(option = "D") plot + scale_color_viridis(option = "E") # package ggsci has scientitifc journal color package library(ggsci) plot+scale_fill_npg() # nature publishing group color pallette plot+scale_fill_lancet() # Lancet color pallette # Rcolorbrewer package contains many color palettes, scale_fill_brewer() for box plot, bar plot, violin plot, dot plot, etc and scale_color_brewer() for lines and points library(RColorBrewer) plot+scale_fill_brewer("Dark2") plot+scale_fill_brewer("Dark3") # ggplot gray palletes plot+scale_fill_grey(start = 0.8, end = 0.2) #This is suffieicnet ofr your purpose. Or you can visit: www.datanovia.com/en/blog/ggplot-colors-best-tricks-you-will-love/#:~:text=Change%20ggplot%20colors%20by%20assigning,or%20to%20the%20fill%20arguments.

Need to see the data. It happened with me some times, but I forgot the context. Can figure out with your dat.

@@DevResearch Thank you. I will send an email :)

I updated all my packages and it worked!! thank you and apologies, I should have checked 🤦‍♀️

Great suggestion!

Very soon will make a video to demonstrate customizing colors. And then will go to arrange bars as we want them to be

You can share your code and data with me on rajuchoure@gmail.com. i will work on the code to find out the issue.

line 66 is df_sumzd=group_by(df_long,Species) here just grouping is done. This i used to demonstrate the grouping only. Result gets saved as object df_sumzd On line 70 df_sumzd=group_by(df_long,Species,Mes_type) %>% summarise(mean=mean(length),sd=sd(length)) i Hve added the code for summarizing , and again the result gets saved as df_sumz. here the output of line 66 gets replaced by output of line 70. And now df_sumz will show you the output of line 70 only and not of line 66. If you clean up the environment and run the code form line 26 again you will get grouping results for line 66, which will get replaced by output of line 70, when you run the line 70. group_by() function groups the numeric output by the combination of categorical grouping variables.

Can you share few rows of data, so that i can understand requirement and think of solution.

Sincere apologies for replying late. This shall not be done to bar plot as the minor differences will be exaggerated. But still if you need to do this then a great lot of coding is required to trick geom bar to limit the axis.

Will try that and share code here.

If possible send me the Excel file and the r code which you are using by mail to rajuchoure@gmail.com. After converting excel to csv don't open the file in excel. right click the file and use open with option. Open the file with notepad. You will see comma separated values. I save he file in the same folder where i store my R file. I set that folder as the working directory, and use read.csv("filename.csv") to import the csv file in R . I store it in a data frame.

you need to order the data , you can use arrange() fucntion of dplyr, then subset the data to filter out top five observations or groups as you require and then go for barplot.

Yes, those are actually calculated using summarise function of Dplyr. This function applies any other function to all categories in the variable.

# Sample data df

@@DevResearch library(AgroR) data(pl) with(pl,FAT2DIC(Org,Inorg,Crop_growth_rate,ylab= "Crop_growth_rate(cm)", xlab = "Org(L/ha)", addmean= FALSE,mcomp = "lsd",textsize= 12, width.column = 0.9,width.bar = 0.3, legend= "Inorg(%)",)) I am use these syntax but I get only the specific value of CV and P-value, but not LSD below the graph, can you help me?

library(dplyr) library(ggplot2) library(tidyr) library(forcats) #Method1: #you can change order of level of factor by redeclaring it. for example iris$Species= factor(iris$Species,levels=c("virginica","setosa","versicolor")) and then go for plot. iris$Species = factor(iris$Species,levels=c("virginica","setosa","versicolor")) plot % gather(FlowerOrgan,Length,1:4) %>% group_by(FlowerOrgan,Species)%>% summarise(mean_Length=mean(Length),sd_Length=sd(Length)) %>% ggplot(aes(Species,mean_Length,fill=FlowerOrgan))+ geom_bar(stat="identity",position="dodge")+ geom_errorbar(aes(ymin=mean_Length-sd_Length,ymax=mean_Length+sd_Length),width=.2, position=position_dodge(.9)) plot #Method 2 #you can use forcats library function fct_relevel in mutate function of dplyr to reorder factor. df % gather(FlowerOrgan,Length,1:4) %>% group_by(FlowerOrgan,Species)%>% summarise(mean_Length=mean(Length),sd_Length=sd(Length)) %>% mutate(Species = fct_relevel(Species, "virginica", "setosa", "versicolor")) %>% ggplot(aes(Species,mean_Length,fill=FlowerOrgan))+ geom_bar(stat="identity",position="dodge")+ geom_errorbar(aes(ymin=mean_Length-sd_Length,ymax=mean_Length+sd_Length),width=.2, position=position_dodge(.9))

You can reorder the factor levels before plotting. For example iris$Species= factor(iris$Species,levels=c("Virginica","setosa","versicolor")) And then go for plot.

@@DevResearch I use the command below, some bars were empty, i had this error Warning message: Removed 18 rows containing missing values (geom_bar). were is the mistake , thank you . df_sumzd=group_by(df_long,pathway,Samples) %>% summarise(mean=mean(length),sd=sd(length)) p=ggplot(df_sumzd,aes(x=pathway,y=mean,fill=Samples))+ geom_bar(stat="identity",position="dodge") + geom_errorbar(aes(ymin=mean-sd,ymax=mean+sd),width=0.25, size=1,position= position_dodge(0.9),alpha=0.3)+ theme(axis.text.x = element_text(angle = 45, hjust = 1))+ scale_x_discrete(limits=c("Nitrogen","Methane","Carbon","sulfate","Thiosulfate","nitrification","nitrate")) p

Please see the df_sumz. You may have missing values in the mean column. For some of the pathways or samples , there may not be any data. If possible mail me your send me df_long in CSV format or df_sumz in CSV format, so that I can try the code and find out the exact error and if any missing data is there, I can suggest imputation.

@@DevResearch both files are correct , noo missing value. can I have you email pls. Thank you very much

Share your code.

I will have to try, do you want image with axis title

We want both name of country with flag for stacked bar chart

I shared the video. Please visit my KZfaq channel.

Watch my other videos also. This Are also good.

Yes. Nigerians speak better English. But still I find it difficult as i don't have practice of listening to Nigerian accent. But in recent future , i will learn that from my Nigerian students.