Xjyuk

Hello fellows and folks!

I wanted to know if it is possible to plot a 3D histogram like these:

The file is a .csv one with 100K rows/tuples. My idea is to plot users (x-axis), movies(y-axis) and ratings (z-axis). For the first 10 rows or something like that.

Is it possible to draw?

This is how the structure of the file looks:

UserID, MovieID, Rating

1,5,5
2,4,3
3,4,2
4,2,2
5,3,5
6,1,5
7,2,2
8,2,3
9,1,4
1,2,4
1,3,4
2,2,3
2,3,5
2,5,4
3,1,5
3,2,2
3,5,3
4,3,3
4,4,1
4,5,2
5,1,4
5,4,4
5,5,5
6,2,3
6,4,3
6,5,5
7,1,3
7,3,3
7,4,2
8,1,5
8,3,4
8,5,5
9,2,2
9,3,5
9,4,4
10,3,5
10,4,3
10,5,4

Here is a proposal. You need to compile twice.

documentclass[tikz,border=3.14pt]standalone
usetikzlibrarycalc
usepackagepgfplots
usepackagepgfplotstable
pgfplotssetcompat=1.16
% from https://tex.stackexchange.com/a/102770/121799
defpgfplotsinvokeiflessthan#1#2#3#4%
 pgfkeysvalueof/pgfplots/iflessthan/.@cmd#1#2#3#4pgfeov
%
defpgfplotsmulticmpthree#1#2#3#4#5#6do#7#8%
 pgfplotssetfloat <%
 pgfplotsinvokeiflessthan#1#4%
 % first key <:
 #7%
 %
 pgfplotsinvokeiflessthan#4#1%
 % first key >:
 #8%
 %
 % first key ==:
 pgfplotssetfloat <%
 pgfplotsinvokeiflessthan#2#5%
 % second key <
 #7%
 %
 pgfplotsinvokeiflessthan#5#2%
 % second key >
 #8%
 %
 % second key ==
 pgfplotssetfloat <%
 pgfplotsinvokeiflessthan#3#6%
 % third key <
 #7%
 %
 % third key >=
 #8%
 %
 %
 %
 %
 %
%

begindocument
ifdefinedgconv
else
pgfmathsetmacrogconv0.1
fi
pgfplotstableread[col sep=comma,header=true]%
y,x,myvalue
1,5,5
2,4,3
3,4,2
4,2,2
5,3,5
6,1,5
7,2,2
8,2,3
9,1,4
1,2,4
1,3,4
2,2,3
2,3,5
2,5,4
3,1,5
3,2,2
3,5,3
4,3,3
4,4,1
4,5,2
5,1,4
5,4,4
5,5,5
6,2,3
6,4,3
6,5,5
7,1,3
7,3,3
7,4,2
8,1,5
8,3,4
8,5,5
9,2,2
9,3,5
9,4,4
10,3,5
10,4,3
10,5,4
datatable
%
%pgfplotstablesort[col sep=comma,header=true]resulttabledatatable
pgfplotstablesort[create on use/sortkey/.style=
 create col/assign/.code=%
 edefentrythisrowxthisrowythisrowmyvalue%
 pgfkeyslet/pgfplots/table/create col/next contententry
 
 ,
 sort key=sortkey,
 sort cmp=%
 iflessthan/.code args=#1#2#3#4%
 edeftemp#1#2%
 expandafterpgfplotsmulticmpthreetempdo#3#4%
 ,
 ,
 sort,
 columns/Mtx/.style=string type,
 columns/Kind/.style=string type,]resulttabledatatable

begintikzpicture%[x=(0.866cm,-0.5cm),y=(0.866cm,0.5cm),z=(0cm,1 cm)]
pgfplotssetset layers
beginaxis[% from section 4.6.4 of the pgfplotsmanual
 view=12040,
 width=320pt,
 height=280pt,
 z buffer=none,
 xmin=-1,xmax=5,
 ymin=0,ymax=9,
 zmin=0,zmax=10,
 enlargelimits=upper,
 ztick=0,5,10,
 zticklabels=0,2.5,5, % here one has to "cheat"
 % meaning that one has to put labels which are the actual value 
 % divided by 2. This is because the bars will be centered at these
 % values
 xtick=data,
 extra tick style=grid=major,
 ytick=data,
 grid=minor,
 xlabel=$x$,
 ylabel=$y$,
 zlabel=$z$,
 minor tick num=1,
 point meta=explicit,
 colormap name=viridis,
 scatter/use mapped color=
 draw=mapped color,fill=mapped color!70,
 execute at begin plot= 
 ]
path let p1=($(axis cs:0,0,1)-(axis cs:0,0,0)$) in 
pgfextrapgfmathsetmacroconv2*y1
ifxgconvconv
else
xdefgconvconv
typeoutPleasespace recompilespace thespace file!
fi 
 ; 
path let p1=($(axis cs:1,0,0)-(axis cs:0,0,0)$) in 
pgfextrapgfmathsetmacroconvxveclen(x1,y1)
typeoutOnespace unitspace inspace xspace 
 directionspace isspaceconvx pt
 ; 
path let p1=($(axis cs:0,1,0)-(axis cs:0,0,0)$) in 
pgfextrapgfmathsetmacroconvyveclen(x1,y1)
typeoutOnespace unitspace inspace yspace 
 directionspace isspaceconvy pt
 ; 
addplot3 [visualization depends on=
gconv*z as myz, % you may have to recompile to get the prefactor right
scatter/@pre marker code/.append style=/pgfplots/cube/size z=myz,%
scatter/@pre marker code/.append style=/pgfplots/cube/size x=11.66135pt,%
scatter/@pre marker code/.append style=/pgfplots/cube/size y=9.10493pt,%
scatter,only marks,
mark=cube*,mark size=5,opacity=1]
 table[x expr=thisrowx,y expr=thisrowy,z
 expr=1*thisrowmyvalue,
 meta expr=-1*thisrowx
 ] resulttable;
 endaxis
makeatletter
immediatewrite@mainauxxdefstringgconvgconvrelax
makeatother

endtikzpicture
enddocument