Have you tried setting the encoding while reading the file? Anyways, this is definitely an encoding issue so in order to try possible solutions we are going to need a sample file, Can you provide a link to a sample file?
sample_file <- read.csv("https://www.dropbox.com/s/dtm17dr1mbtbhzl/AO%20Branch%20Sales.csv?dl=1",
fileEncoding = "utf8", row.names = NULL)
head(sample_file)
#> State City Region Store.Name Year
#> 1 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2019
#> 2 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2018
#> 3 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2016
#> 4 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2017
#> 5 المنطقة الغربية مكة 1 الحرم 1 394-أبراج البيت2 2019
#> 6 المنطقة الشمالية المدينه 1 المدينة المنورة3 844فندق الانصار الذهبي 2018
#> Quantity Total.Sales
#> 1 36513 6950064 SAR
#> 2 36121 6681969 SAR
#> 3 46632 6536810 SAR
#> 4 39711 6024433 SAR
#> 5 22454 4375455 SAR
#> 6 30185 3885951 SAR
Created on 2020-01-20 by the reprex package (v0.3.0.9000)
How about this? It worked for me when the other one didn't.
library(tidyverse)
sample_file <- read_csv(file="https://www.dropbox.com/s/dtm17dr1mbtbhzl/AO%20Branch%20Sales.csv?dl=1", locale = locale(encoding = "UTF-8"))
head(sample_file)
> head(sample_file)
# A tibble: 6 x 7
State City Region `Store Name` Year Quantity `Total-Sales`
<chr> <chr> <chr> <chr> <dbl> <dbl> <chr>
1 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2019 36513 6950064 SAR
2 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2018 36121 6681969 SAR
3 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2016 46632 6536810 SAR
4 المنطقة الغربية مكة 1 الحرم 1 413-أبراج البيت 5 2017 39711 6024433 SAR
5 المنطقة الغربية مكة 1 الحرم 1 394-أبراج البيت2 2019 22454 4375455 SAR
6 المنطقة الشمالية المدينه 1 المدينة المنورة3 844فندق الانصار الذهبي 2018 30185 3885951 SAR
My solution works for me (as you can see in the reprex) because I test it on a Linux system, I didn't notice you were on Windows, encoding problems are very system dependent.