Attempting with a full picture first as was available

knitr::include_graphics("/Users/nishantaneja/Desktop/License_Plate_Orignial.png")

# install.packages("tesseract")
library(tesseract)
eng = tesseract("eng")
text <- tesseract::ocr("/Users/nishantaneja/Desktop/License_Plate_Orignial.png", engine = eng)
cat(text)
## 4 |
## Eecgae,
## =~
## aN
## y =

Now cropping the Plate Section only to see if that improves the results:

knitr::include_graphics("/Users/nishantaneja/Desktop/License_Plate_Cropped.png")

text2 <- tesseract::ocr("/Users/nishantaneja/Desktop/License_Plate_Cropped.png", engine = eng)
cat(text2)
## A 17-TXT-4