# Data for the pie chart
city_pie_chart<-c("mumbai","pune","chennai","banglore")
values<-c(14.2,34.6,12.3,39.9)
color<-c("red","green","cyan","purple")
pie(values,labels=values,col=color,main="city_pie_chart")
legend("topright",legend=city_pie_chart,fill=color)

name<-c("ravi","ramu","raju","ben","harsh")
age<-c(22,55,30,12,10)
df=data.frame(name,age)
df

##    name age
## 1  ravi  22
## 2  ramu  55
## 3  raju  30
## 4   ben  12
## 5 harsh  10

print(max(df$age))

## [1] 55

print(min(df$age))

## [1] 10

df1<-data.frame(Item_names=c("Desktop","tablet","printer","laptop","tv"),prices= c(49999,15000,85000,10000,15000))
df1

##   Item_names prices
## 1    Desktop  49999
## 2     tablet  15000
## 3    printer  85000
## 4     laptop  10000
## 5         tv  15000

df1<-data.frame(Item_names=c("Desktop","tablet","printer","laptop","tv"),prices= c(49999,15000,85000,10000,15000))
write.csv(df1,"C:\\Users\\24mic7388\\Documents\\lab1.csv")